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IT. INTRODUCTION 


Simulating an aircraft flight path requires a great deal of informa- 
tion. This information usually includes position and velocity as a 
function of time. More detailed descriptions may require heading, climb, 
and roll angles, as well as velocity components in one or more coordinate 
systems. Additionally, the simulation will have constraints on the 
aircraft's performance, such as G load and power available. Finally, the 
simulation will have certain aspects of aircraft utilization such as 
altitude or approach limits, which it tests. These might relate to a 
bombing mission, transcontinental passenger service, or an encounter with 
an anti-aircraft system. Although real-time flight path simulation is 
necessary in the final stages of a system's development, the use of 
Simple, pre-defined flight paths in the early design phases is still a 
helpful tool. 

Generating the information for these flight paths is an excellent 
application of the capabilities of the digital computer. Given a few 
Droad parameters, the computer can generate and properly format the other 
information the particular simulation requires. The alternative is the 
time-consuming and error-prone process of having the simulation user 
determine and properly enter all of the data needed for the simulation. 

To further aid the user, a graphic capability is desirable. It is 
much simpler for a user to decide upon a flight path if he can see where 
he is flying. In addition, cursor-mapped input reduces the chances of 
incorrectly typing in parameters. 
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There are two simulation programs at the Naval] Postgraduate School 
which require pre-defined aircraft flight paths as input data. They are 
the Air Force Armament Laboratory's Anti-Aircraft Artillery (AAA) Simula- 
tion (called POO1) and the Vought Corporation's surface-to-air missile 
(SAM) engagement simulation (called MICE II). Both programs are used by 
the military aircraft industry, being specifically called for in Reference 1. 
Both programs are used in the Naval Postgraduate School course in aircraft 
survivability (AE 3251) as tools for gaining an understanding of the 
factors affecting aircraft survivability in a hostile AAA and SAM environ- 
ment. The students are required to fly a bombing mission against a 
target defended by seven AAA weapons, one which has a fixed location, and 
one SAM site. They are formed into teams of two, and each team plots a 
flight path and selects defensive positions. One team then flies its 
route against an opposing team's weapons, and vice versa. 

At the present time, POO1 and MICE II are implemented for batch 
processing on the school's IBM 3033 computer, having been converted from 
the IBM 360 system in 1980. The input to both programs requires a 
Significant amount of formatted data, the entry of which is time-consuming, 
tedious, and error-prone. To alleviate part of this problem, a pre- 
processing program called PIP (POO1 Input Processor) was written in 1978. 
This program required that the operator enter only the milestone X, Y, 
and Z coordinates, an initial speed, and contro] indicators for the type 
of output desired. It too was written for the IBM 360 system batch mode. 
It was converted to the new 3033 system in 1981, but was not re-written. 

With the improved time-sharing capabilities of the 3033 system, it 


was desirable to make PIP interactive. A significant problem of the 
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batch system was the requirement to submit a complete flight path to PIP 
for evaluation with respect to aircraft performance and mission rules. 
PIP evaluated the milestones and indicated which ones were outside the 
allowable limits of the parameters. The student then had to change the 
milestones that were causing the problems and hope that the corrections 
did not affect the points that were not changed. Since the run often 
generated punched cards for POO] and MICE, a great deal of waste occurred. 
Another problem was that the user had to plot the points on a map, copy 
them to a piece of paper, and then type or punch them in using the proper 
FORTRAN format. This was extremely tedious and sensitive to typing 
errors. 

The major goal of this thesis effort was to alleviate these problems 
through the use of an interactive, graphics capability. The availability 
of TEKTRONIX and IBM graphics terminals and software, and the IBM 3033 
CMS made this possible. Using a graphic terminal, the user is presented 
with a map of an attack scenario. A cursor is used to input the hostile 
AAA and SAM locations. The cursor is also used to input the aircraft 
milestone position and velocity. As each milestone is entered, the 
flight parameters are computed and checked against flight (maximum 
velocity, G loading, etc.) and simulation (bomb drop distance, pop-up 
maneuver, etc.) constraints for validity. Milestones which do not meet 
the constraints are rejected, the user is informed of the error, and a 
new milestone is requested. At any time up to the final milestone 
the user may reset the problem to any previous point. The user may also 
input data from an existing file to re-run a previous trial. When the 


final milestone is identified, the operator is given the option of 
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generating POO] and MICE input data files, or no file at all. In addition, 
the gun, SAM, and flightpath data are saved for later use. 

A secondary goal was that of software transportability. The intention 
is to make the programs available to the survivability community. To 
Support this goal, a modular design was used. Routines which were 
software or hardware dependent were modularized for ease of replacement. 
Requirements unique to the user (simulation rules, vulnerability tables, 
etc.) were also modularized. This modularization allowed the creation of 
a non-graphic version that would work at any keyboard terminal. 

The main body of this thesis will describe the functions of the 
various modules. This will include a description of parameters passed 


and common blocks required. 
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I]. APPROACH 


A. GOALS 

As stated above, the problem was approached with two goals in mind: 
ease of interaction and transportability. Ease of interaction meant that 
the system should require minimum interaction from the user while provid- 
ing rapid feedback to required inputs. Transportability meant that users 
on other systems could easily convert the program to their systems. 

To support the goal of simple interaction, a graphics capability was 
felt to be vital. This would allow the user to get a much better feel 
for the data he was creating. In addition, the burden of formatting and 
copying would be eliminated. Qnce the data has been input, the program 
must be prompt in providing feedback as to its validity. A major concern 
in interactive systems is the response time. For direct data input, a 
response time of less than one second is desirable. For inputs requiring 
further computation, two to three seconds is an adequate time. For 
complicated actions, such as drawing a map, responses on the order of 
minutes is appropriate. These times are primarily based on the human 
willingness to accept delay. 

To meet the requirements of transportability, several changes to 
PIP were necessary. To support different hardware and software configur- 
ations, any section which relied on specific system characteristics had 
to be isolated for easy replacement. This applied particularly 26) tine 
graphics sections, which presently require either the TEKTRONIX 4010 


family of terminals and PLOT-10 software, or IBM graphic terminals and 
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GRAF77 software. By isolating these modules in FORTRAN subroutines, the 
system will operate with other graphic systems if the appropriate software 
is changed. By eliminating the graphic commands, the system can be 
converted to run on any keyboard terminal. 

Another area where changes are needed is in the sections dealing 
with simulation rules. The rules presently included are those which 
support the Naval Postgraduate School aircraft survivability course. The 
flight parameters are computed from the user input of position and 
velocity. Other users may desire to incorporate more or less sophis- 
ticated rules and parameter computation to better meet their needs. To 


accomplish this, two subroutines and the BLOCK DATA must be chanaed. 


B. METHODOLOGY 

In planning the program, the basic logic sequence was first outlined. 
This allowed the preliminary definition of the various modules. A module 
was created any time a function either occurred more than once, or 
required implementation unique to a particular system. For example, the 
ability to read position coordinates was needed several times, so the 
module XYZIN was written. Similarly, providing information to the user 
to assist in aligning his flight path properly for a bomb run occurs in 
only one location, but the manner in which the data is displayed depends 
on the type of terminal being used. 

Once the modules were defined, it was possible to determine which 
data would be shared between them. When several modules required the 
Same data, or a parameter list would be extremely long, a global data set 


was created to pass the information. 
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Finally, the system was implemented with a top-down approach. 
Stubs were used by higher level modules unti] lower level modules could 


be written and tested. This approach reduced the code that nad to be 


checked after a particular test when an error was discovered. 
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IIIT. FUNCTIONAL DESCRIPTION 


A. DATA SETS 
1. Internal Sets 
a. Screen Window Defined 
This data set must contain the coordinates of the various 
screen windows which the program will use. 
b. Target Definition 
This data set contains the virtual screen coordinates of 
the target. 
ee CDONS: L1St 
This data set contains the variables necessary to transmit 
user options throughout the program. 
d. Flight Parameter List 
This data set contains the variables which define the flight 
path. 
e. Simulation Parameter List 
This data set contains the variables which are the constraints 
on aircraft performance that the user wishes to incorporate. 
f. Coordinate List 
Tnis data set contains the variables associated with the 
user's entry of milestones. 
g. Error Message Pointer 
This data set contains the information necessary to locate 


the error messages. 
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2 external Sets 
a. Weapon Locations 
This data set contains the location of the hostile weapon 
Sites. 
b. Map File 
This data set contains the X/Y coordinate pairs and 
instruction markers for drawing the attack scenario map. 
c. Milestone File 
This data set contains the X, Y, and Z coordinates, velocity, 
and option commands for each milestone of the flight path. 
d. Qutput File 
There is a separate file for each simulation for which the 
program provides data. In addition, a scratch file is maintained in case 
of system failures. 
e. Rule File 
This file saves the simulation constraints to allow the user 


to rapidly change the entire set of constraints. 


B. MODULES 

Db. MAIN 

This module is the sequence control] routine and is invoked 

on program load. The module calls BEGIN to request the user's options. 
It then calls SCENE to draw the scenario. Based on user response during 
initialization, the module then establishes the weapon locations by 
reading a disk file, using a default set, or having the user enter them 
at the terminal. If the terminal input option is selected, the old 


weapon site file is erased and the new values are placed in it. MAIN 


ZN 


then accepts data for the aircraft flight path milestones. The user 
decides during initialization whether the data will come from a disk file 
or the terminal and whether or not errors will cause the inputs to be 
rejected. Once the data for each milestone is read, the flight parameters 
are computed in the VALSET module and checked for errors in the ERRCHK 
module. Errors are identified to the user and the data is rejected if 
the user so indicated. If no errors occur, or if they are being ignored, 
the module calls the PTHPLT module to draw the current leg. When using 
the terminal to enter the milestone data, the user may, at any point 
before the final milestone, reset the flight path to a previous point and 
begin from there to enter new data. If the input disk file has a continu- 
ation command, the program will shift from the disk input mode to the 
terminal input mode. Once the final entry is indicated, MAIN calls the 
ELFIN module to obtain the user's output options and then calls the 
PRESET module to implement them. 
2. VALSET 

VALSET is the module responsible for computation of those 
parameters required by the main simulation programs but not provided by 
the user. It contains the equations necessary for the computation of 
those parameters. The module can also indicate an error when the user's 
data causes a condition which will be undefined, such as inputs which 
Cause a division by zero. 

3. ERRCHK 

This module contains the rules that the user wishes the flight 

patn to obey. These include constraints on flight performance (thrust, 


acceleration, etc.) and rules particular to the mission (approach rules, 
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bomb release limits, etc.). A violation returns an error code identifying 
the rule that was violated. 
4. PTHPLT 
This is the module responsible for notifying the user that the 
data entered met all the constraints and has been accepted. It also 
saves the user's input in a scratch file to protect against system 
crashes. 
oe SPOT 
This module is the actual interface between the user and the 
computer for entering position data. It obtains two positions (X and Y) 
and two command inputs from the user and transmits them to the program. 
The calling routine is responsible for properly interpreting the X and Y 
values. 
6. SCENE 
SCENE is responsible for drawing the graphic displays needed by 
the program. Data for the map is read from the map file. The data is 
either a move or stop command or an X/Y pair indicating where the beam is 
to be positioned. The module also has a role in the reset sequence. 
When a reset procedure is executed by MAIN, it passes the information to 
SCENE. SCENE then prompts the user to indicate which milestone is the 
last one he wishes to retain. This value is returned to MAIN. 
7. WIN 
This module is responsible for defining a window on the screen. 
The module is provided with the screen coordinates desired and the 
virtual range that the window represents. The lower left corner is 


always given a virtual value of (0,0). Under control of the calling 
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routine, the module will flash the window to act as a prompt to the user 
to look at that window. 
8. XYZIN 
This module is responsible for obtaining the data necessary to 
identify a single location. The module defines the windows by calling 
WIN and actually obtains the data by calling SPOT. 
9. GUNLOC 
This module is used to display special points such as the weapon 
locations and the target. The location is marked with a "+". It then 
draws a circle around the location with a radius specified by the calling 
routine. 
ii BEGIN 
BEGIN is the module responsible for initializing the program. 
The user's options for data input are requested and passed to MAIN through 
the Option Data Set. The module also executes the calls that initialize 
the graphics routines and computes the coordinates of the various windows 
to be used. 
ll. GUNCHK 
This module is responsible for checking the gun emplacement 
rules. A violation results in the appropriate error code being returned. 
BZ PRESET 
This module is responsible for formatting the data so that it 
1S compatible with the data file expected by the simulation program which 
is to use the flight path. It is also responsible for conversion from 


Metric to English units where necessary. 
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This module obtains the user's output options and closes access 
to the graphics routines. 
14. AIMPT 
This module provides a display to the user to allow proper 
alignment for the bombing runs. 
15. CONCHG 
This module allows the user to change the value of the simulation 
limits. It also saves these changes and allows the user to read a 
complete set of limits from a disk file. 
16. ERRMK 
This module sends error messages and prompts to the operator 
when graphic routines are being used. The message to be set is identified 
by a parameter passed by the calling routine. 
17. SAMCHK 
This module is responsible for checking for violations of 
the SAM emplacement rules. If errors are detected, it calls ERRMK with 
the appropriate code and returns a "1" to the calling routine. A zero 


is returned if no errors occur. 
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IV. FLIGHT DYNAMICS 


When defining a flight path, the user must provide a finite set of 
milestone coordinates. The leg between each pair of milestones is 
usually considered to be straight. However, this straight line path 
causes problems with the computation of some of the flight path parameters. 
For instance, the heading at milestone I in a simple simulation could 
easily be computed as: 

Heading, ; = Arctan (DY/DX) 
where DX and DY are the X and Y components of the leg from milestone [-l 
to I. If "i" and "j" are redefined as I and I + 1, the equation is stii] 
a legitimate approximation of the heading at I. In reality, the aircraft's 
heading at milestone I is somewhere between these two values. The same 
is true of the climb angle. These two angles in turn define the X, Y, 
and Z components of velocity at the milestone. 

To account for this ambiguity, the program uses an averaging technique 
for computing the data required to define the flight path. The technique 
uses the operator's input of position and velocity over three milestones, 
except at the initial and final milestone, to compute average values of 
neading, climb, and velocity components. 

First, the previous leg's distance and average velocity (from I-2 to 
I-1) are saved in DISTL and VAVGL for later use. Next, the current leg 
(from I-1 to I) is evaluated, with the X, Y, and Z components and distance 


DIST being computed as follows: 
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Dxe= X(T) = X(1-1) 
Oye. Yt I=1) 
DZ = Z(I) - Z(I-1) 
DIST = (0xe + py? + pz)+/2 
The average velocity VAVG equation is: 
VAVG = (VEL(I) + VEL(I-1))/2 
The time for the leg (DT) and the total time (T(I)) is then computed: 


DT 


DIST/VAVG 
TO r= Clee pT, 
The average X, Y, and Z components of velocity along the leg (I-1 to I) 


become: 


AXD(I) = VAVG*DX/DIST 


AYD(I) 


VAVG*DY/DIST 
AZD(I) = VAVG*DZ/DIST 
At milestone I, the acceleration components can now be computed for 
milestone I-1 (see Fig. 1): 
DELT = (T(I) - T(1-2))/2 
XDD 


(AXD(I) - (AXD(I-1))/DELT 
YOD 


(AYD(I) - (AYD(I-1))/DELT 

ZOD = (AZD(I) - (AZD(I-1))/DELT 
Three working vectors, FOX, TOY, and TDZ, determine the average X, Y, and 
Z components that will be used to compute the climb and heading angles. 
These in turn will determine the components of velocity (XDOT, YDOT, 
ZDOT) at the previous (I-1) milestone. The equations are: 


HDAVG = DIST/(DIST + DISTL) 


ad) 








Figure 1. Components of Average Velocity--Horizontal Palbvga.t.. 
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TDX 

TDY 

TDZ 

UNIT 

TDX 

TDY 

NDZ 
XDOT(I-1) 
YDOT(I-1) 
ZDOT(I-1) 
CA(I-1) 
HDG( I-1) 


-_ 
—_ 
- 


(AXD(I)/VAVG - AXD(I-1)/VAVGL)*HDAVG + AXD(I-1)/VAVGL 
(AYD(I)/VAVG - AYD(I-1)/VAVGL)*HDAVG + AYD(I-1)/VAVGL 
(AZD(I)/VAVG - AZD(I-1)/VAVGL)*HDAVG + AZD(I-1)/VAVGL 
(Tox? + Tov? + Toz2)l/2 

TDX/UNIT 

TDY/UNIT 

TDZ/UNIT 

VEL( 1-1) *TDX 

VEL (I-1)*TDY 

VEL(1-1)*TDZ 

Arctan (TDZ/(TDX2 + ToY2)!/2) 


Arctan (TDY/TDX) 


To compute the roll angle RA and the forces acting on the aircraft, it 


is necessary to transform the acceleration from the group coordinate 


System into an aircraft centered coordinate system with axes parallel and 


perpendicular to the flight path. The parallel component in the direction 


of flight is TMD. PH is perpendicular to the flight path, parallel to 


the X/Y plane, and out the left wing. PP is parallel to the cross product 


TMD x PH (see Fig. 2). The transformation equations are: 


where 


IMD > Ali ALA + ALS 
Citeame let AZe ot Ae 3S 
bP oieet Ae. FASS 


GEE 


9.82, the gravitational constant 


HDCOS = cos (HDG) 


HDSIN 


sin (CA) 
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Figure 2. Aircraft and Reference Coordinate Systems. 
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CACOS = cos (CA) 
CASIN = sin (CA) 
All = XDD(I-1)*HDCOS*CACOS 
A21 = XDD(I-1)*HDSIN 
A31 = XDD(I-1)*HDCOS*CASIN 
Al2 = YDD(I-1)*HDSIN*CACOS 
A22 = YDD(I-1)*HDCOS 
A32 = YDD( I-1)*HDSIN*CASIN 
Al3 = (ZDD(I-1) + GEE)*CASIN 
A23 = 0 
A33 = (ZDD(I-1) + GEE)*CACOS 
The total lift ACLIFT is the vector sum (PH + PP) of the perpendicular 
forces and it is assumed that the aircraft will roll such that the wings 
are perpendicular to the lift. The equations are therefore: 
ACLIFT = (PH + pp)+/2 
RA = -Arctan (PH/PP) 
The vectors PH and PP are not explicitly computed and, with the acceleration 
in terms of G's, the equations become: 


guO-= (All + Al2 + Al3)/GEE 
\¢ 


ACLIFT = ((A21 + A22)2 + (A31 + A32 + a33)%)!/2 yee 
RA = -Arctan (A21 + A22)/(A31 + A32 + A33)) 
TMD, the net acceleration parallel to the flight path, is the sum of the 
aircraft's thrust and drag divided by aircraft weight: 
F/W = ma/W = ma/mg = a/g = TMD 
where F = total force, W = total weight, m = aircraft mass, a = accelera- 


tion, and g = gravitational acceleration. The drag force can be computed 


from the lift. The equations are as follows: 
Sul 





RHO = 9 .256xe(-9-103*2(1)/1000) 
CL = 2*ACLIFT/(RHO*VEL(I)°/WL) 
OW = ((CDO + CDK*CL“)/CL)*ACLIFT 
TW = TMD + OW 
where RHO = density of air in (Ib*sec*)/(ft@*meter®) . The mixed 
units are required to use Metric units for velocity and English units for 
wing loading. 
CL = lift coefficient 
WL = wing loading in lIbs/ft® 
DW = drag divided by weight 
CDO = drag coefficient for zero lift 
COK = factor relating lift and drag coefficients 
TW = thrust divided by weight 
Maximum values of ACLIFT, CL, and TW were used as constraints on aircraft 
performance. TW must be positive or zero. If it is found to be negative, 
then TMD must be negative. This is a large negative acceleration and 
implies speed brakes are being used. Consequently, a different draq 
equation must be used. The program assumes the brakes have a drag 
coefficient of one and a surface area equal to five percent of the wing 
Surface. The new drag equation is: 
OW = (ACLIFT/CL)*(0.05 + CDO + (CDK*CL*))/2 


This drag is used to reevaluate TW and thus determine whether or not the 


attempted deceleration exceeded the capabilities of the speed brake. 
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V. GRAPHICS HARDWARE AND SOFTWARE 


Two interactive graphic systems are suported by the IBM 3033 computer. 
The TEKTRONIX PLOT-10 software package supports terminals from the 
TEKTRONIX 4010 family and is available for implementation on a wide 
variety of computers, including minicomputers. The IBM 3277-based 
graphics package is available only on IBM computers used in conjunction 
with modified IBM 3277 terminals. Both systems use direct view storage 
tubes for the graphics display and keyboard and cursor for data input. 

A direct view storage tube is one in which the picture does not have 
to be continuously refreshed. The major advantages with this type of 
display is that the line drawing is faster and the lines that are drawn 
are continuous. This creation of continuous lines is not available on 
raster scan (television style) display devices. These displays sweep 
horizontally from top to bottom and have a finite number of elements, 
called pixels, that are turned either on or off on each sweep. These 
discrete elements can lead to the "staircase effect," where the line 
makes finite jumps from one row or column to another. On direct view 
Storage tubes, this effect is eliminated because the electron beam can be 
Steered to any point on the screen and moved directly to any other 
point. 

The major disadvantage of most storage tube displays is that portions 
of the screen cannot be erased without erasing the entire screen. In 
order to remove an undesired display, the entire screen must be cleared 


and then the portions that are to be retained are redrawn. This can be 
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very annoying to the operator. It also causes delays that adversely 
affect the user's willingness to continue with the program. For instance, 
drawing the scenario displays, when operating at 300 BAUD, takes almost 
five minutes. Raster scan devices do not have this problem because the 
picture is continuously redrawn and there is no difficulty changing it. 

The TEKTRONIX terminal for which this program was written is the 
Model 4012. This terminal has an 8-1/2 inch by 6-1/2 inch screen and a 
Standard computer keyboard. The PLOT-10 software identifies the screen as 
a coordinate system 1,023 units wide and 780 units high, with the lower 
left corner having a value of (0,0). The software also provides for the 
definition of screen windows and virtual coordinate systems. A screen 
window is a rectangle on the screen. It is defined by the lower and upper 
horizontal and vertical coordinates the programmer provides. There is no 
limit to the number windows that can be defined, but only one exists at a 
particular time. A similar concept is the virtual window. Once a screen 
window is activated, the programmer can assign the range of coordinates 
that this window will represent. The PLOT-10 software also provides for 
converting from Metric and English units to screen units and vice versa. 
Combined with a virtual coordinate system, this allows the programmer to 
provide true scale drawings. For example, the attack map screen window 
is defined as starting 1/5 inch from the left side of the screen and 
extending to 6-1/5 inches from the left. This six inch length is then 
given virtual limits of 0 and 18,000, giving a true scale of 3,000 
meters/inch. 

Hard copy output from the TEKTRONIX 4012 can be obtained by connecting 


the terminal to either the TEKTRONIX 4662 interactive plotter or the 
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TEKTRONIX 4631 hard copy device. The 4662 plotter is capable of being 
independently controlled with PLOT-10 software, or it can duplicate what 
is occurring on the 4012 screen. Figure 3 is the output from the plotter 
operating in parallel with the terminal. The 4012 can also electronically 
scan the display. This information is then used to control the light 
intensity that exposes the light sensitive paper in the 4631 copier. 
Figure 4 is the output obtained from the 4631 hard copy device. 

The IBM 327/7-based graphics system is a dual screen system. It uses 
an additional circuit card in an IBM 3277 terminal, which has a raster 
scan, to drive a TEKTRONIX 622 direct view storage tube display. The 
software package is very versatile. It provides a wide variety of 
three-dimensional, geometric, and vector-drawing support and a limited 
capability for a moving display. Another advantage is the availability 
of the raster terminal. This greatly facilitates alphanumeric, as 
opposed to graphic, input and output. The extensive support this package 
provides is also a handicap. The functions are generally more difficult 
to use than those provided by PLOT-10. In addition, the software is 
partially incompatible with FORTRAN terminal input/output. When FORTRAN 
input/output routines (WRITE or READ) are used, the raster screen must be 
manually cleared before execution continues. This is a major distraction. 

Like the 4012, the TEKTRONIX 622 can electronically scan its display 
and drive the 4631 hard copy device. Figure 5 is a copy of the display 
as it appears on the 622 screen. Ultimately, the Naval Postgraduate 
School's TEKTRONIX 622's will be connected to a VERSATEC electrostatic 
plotter. This will significantly improve the overall capability of the 


graphic support at the school. 
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VI. DETAILED DESCRIPTION 


This section will provide a detailed description of the program as 
implemented using the PLOT-10 software to support the TEKTRONIX 4010 
family of terminals. The first segment will describe the internal and 
external data required by the program while the second will describe the 
modules. 

For the purposes of this section, a definition of the meaning of 
"data set" is required. The words “data set" describe a logical group of 
data. The FORTRAN language uses the term “data set" to identify a 
hardware device. The term “FORTRAN data set (number)" will be used to 
define this concept. For example, the MAP file is a data set consisting 
of points that define the scenario map. The information is contained on 
a device which has been identified as FORTRAN data set 9. 

The description of the internal data will identify the use of each 
variable in a data set, and the range of values the variable can be 
assigned. The external data set descriptions will list the contents and 
format of each element. 

The final part of this section will describe the modules. A brief 
functional description will be given. Those parameters which must be 
provided to the module or returned by it will then be described. The 
global data sets which the module uses will be identified, but not the 
individual elements of the set. Next, the description will list the 
higher level modules that the module must support. This will be followed 


by a list of the module's local variables, which will describe the use 
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and possible values of the variable. The final segment will be an 
algorithmic and flowchart description of the module. In the algorithmic 
description comments will be marked by square brackets ([ ]). 
A. INTERNAL DATA SETS 
1. Screen Window Defined 

The variables for this data set are contained in common block MN. 
The variables are: 

a. IBAUD 

This variable identifies the baud rate of the user's terminal. 

This is necessary to allow the screen prompts to flash sufficiently long 
idan cr act attention, but not too long as to be distracting. The allow- 
able values are: (1) O--this indicates a slow (110-300 BAUD) terminal 
interface; and (2) any positive integer--this indicates a fast (1,300- 
9,600) terminal interface with the computer. The larger the number, the 
more times the prompt flashes will appear. Since the baud rate determines 
the length of time between flashes, a larger number of flashes will 
result in the prompt being visible for a greater period of time. 

b. MINY, MAXY 

These variable identify the lower and upper vertical limits 

for all the screen windows. They can be assigned any positive integer 
value within the limits of a TEKTRONIX screen, subject only to the con- 
Straint that MAXY is greater than MINY. For the TEKTRONIX 4012 terminal, 
the values are: (1) MINY = 777-KIN(4.375), which places the screen 
windows' lower boundary 4.375 inches from the top of the screen; and (2) 
MAXY = 777-KIN(0.375), which places the screen windows' upper limit 0.375 


inches from the top of the screen, making the windows four inches high. 
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c. MINX, MAXX 

These are the left and right screen limits of the map window. 
They can be assigned any positive integer value within the limits of a 
TEKTRONIX screen, subject only to the constraint that MINX is less than 
MAXX. For TEKTRONIX 4012, the values are: (1) MINX = KIN(0.20), which 
places the left screen boundary of the map one fifth inch from the left 
edge of the screen; and (2) MAXX = KIN(6.20), which places the map's 
right screen boundary 6.20 inches from the left side of the screen for a 
window six inches wide. 

d. MIN1, MAX] 

These variables define the left and right screen borders of 
the altimeter. They can be any positive integer within the limits of the 
TEKTRONIX screen, subject to two constraints. MIN1 must be less than 
MAX1 and the range of MINI-MAX1 must not overlap that of MINX-MAXX. For 
this program, the values are computed as follows: (1) MINI = MAXX + 10, 
which places the left screen limit of the altimeter window 10 units to 
the right of the map window; and (2) MAX1 = MAXX + 185, which places the 
right border 185 screen units to the right of the map window and makes 
the altimeter window 175 units wide. 

2. Target Definition 
The variables for this data set are found in common block TAR. 
They are: 
a. TARGX 

This is the X coordinate of the target. It must have a 

positive value less than 18,000 to appear on the map and is initialized 


In the Block Data section to a value of 14,000. 
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b. TARGY 
This is the Y coordinate of the target and must be a positive 
value less than 12,000 to appear on the map. It is initialized in the 
Block Data section to a value of 7,220. 
SeeoOptron List 
These variables are found in the common block OPT and are defined 
as follows. 
a. IGUN 
This is a variable used to indicate the source of the weapon 
site data. The values are assigned the following meaning: (1) O--the 
weapon site data is to be obtained from the external data set GUN LOC; 
(2) 1--the weapon site data will be entered by the user at the terminal; 
and (3) any other value--the weapon site data is the default data contained 
in common block PARZ. 
b. IPNCH 
This control variable relays the users choice of the output 
files to be created by module PRESET. The values mean: (1) O--no output 
files are desired; (2) l--only a P0001 file is to be written; (3) 2--only 
a MICE II file is to be written; and (4) any other value--both P0O0O1 and 
MICE II files are to be written. 
Ge PLEKT 
This controls whether or not the POO1 extended output option 
cards are written. The values are: (1) 1--extended output option is 


requested; and (2) any other value--the option is not requested. 


42 





d. ISAM 
This is the missile type to be used in the MICE II file. 
It may be any integer between 1 and 7. The missile type is defined in 
Reference 2. 
e. IMP 
This indicates the user's option for the source of the 
milestone data and has the following definition: (1) O--the data is to 
be obtained from the external data set PTS LOC; and (2) any other value-- 
the data is to be entered by the user at the terminal. 
ieee NER 
This indicates the user's option to ignore errors. The 
possible values are: (1) O--ignore errors; and (2) any other value--notify 
the user of violations of the simulation parameters. 
4. Flight and Weapon Parameter List 
This data set consists of three common blocks. These blocks 
are PAR, PARL, and PAR2. The variables in PAR are: 
eee, 
These are 200 element arrays where X(I), Y(I), Z(I) are the 
X, Y, and Z coordinates in meters of milestone I. 
pee CA, HDG, RA 
These are 200 element arrays. CA(I), HDG(I), and RA(I) are 
the climb, heading, and roll angles in radians of the aircraft at 
milestone I. 
ee VEL 
This is a 200 element array with VEL(I) representing the 


aircraft velocity in meters/second at milestone I. 
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The variables in PARI are: 
d. XDOT, YDOT, ZDOT 
These are 200 element arrays. XDOT(I), YDOT(I), and ZDOT(I) 
are the X, Y, and Z components in VEL(I) at milestone I. 
e. MNUM 
This is a counter that indicates the current milestone. 
f. MBR 
This is a counter that indicates the milestone at which the 
aircraft's weapons were released. 
The variables in PAR2 are: 
ge «mi 
This is a 200 element array. T(1) is zero and T(I) is the 
elapsed time at milestone [. 
h. XGUN, YGUN, ZGUN 
These are seven element arrays which contain the X, Y, and 
Z location, in meters, of the gun emplacements. The default values are 
initialized in the Block Data section. 
i. XSAM, YSAM, ZSAM 
These are the X, Y, and Z location, in meters, of the SAM 
emplacement. The default values are set in the Block Data section. 
be, GR 
This is a seven element array. GR(I) is the engagement 
radius of gun I. The values for GR are established in the Block Data 


section. 
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5. Simulation Parameter List 
The data set is contained in commom blocks PAR3 and PAR4. 
PAR3 contains: 
a. IMD 
This is the net acceleration, in G's, parallel to the aircraft's 
flight path. 
De ACHE) 
This is the net acceleration, in G's, perpendicular to the 
flight path of the aircraft. 
c. CLMAX 
This is the maximum allowable coefficient of lift. It is 
initialized to 1 in the Block Data section. 
d. WL 
This is the wing loading of the aircraft in pounds/ft*. 
It is set to 100 in the Block Data section. 
e. TMAX 
This is the maximum thrust-to-weight ratio, in G's, that the 
aircraft can provide. The initial value of 0.4 is set in Block Data. 
ee CLO 
This is the drag coefficient with zero lift. Block Data 
Sees it initially to 0.015. 
Gee CDK 
This is the factor relating the drag and lift coefficients 


and is set in Block Data to a value of 0.1. 
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h. VMAX1, VMAX2 
These are the maximum allowable aircraft velocities, in 
meters/second, before and after the bombs have been released and are set 
equal to 260 and 310, respectively, in Block Data. 
The variables contained in PAR4 are: 
i. APPMAX 
This is the maximum altitude, in meters, that the aircraft 
can ascend to before executing its pop-up maneuver. Block Data sets this 
variable to 45/7. 
j. HTMIN, HTMAX 
These are the minimum and maximum altitudes, in meters, 
that the aircraft can position itself. HTMIN is set to 60 and HTMAX to 
2,050 in Block Data. 
k. SPDMIN 
This is the aircraft stall speed, in meters/sec. It is set to 
an initial value of 90 in the Block Data section. 
1.  GMAX 
This is the maximum G force that the aircraft can sustain 
ema 1s set to 6 in Block Data. 
m. POPMIN 
This is the minimum distance to the target, in meters, 
before the aircraft can begin the pop-up maneuver. Block Data sets it 
at 6,000. 
6. Coordinate List 
The variables in this data set are contained in common block 


LOC. The variables are: 
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cee ey 21 
These are the X, Y, and Z values entered by the user at 
a milestone. 
Oey 
This is the velocity selected by the user. 
cae LIR, EPRZ 
These are operator commands. They have the following meaning: 
(1) 65--this indicates that the user wants assistance in aligning his 
flight path for a bombing run; (2) 66--this means the user wants to 
release the bombs at this milestone; (3) 85--this means that the user 
wants to reset the flight path to an earlier point; (4) 86--this means 
that the user is finished with milestone entry; and (5) any other value-- 
no effect. 
ye Error Message Pointer 
The variables in this data set are found in common block ERR. 
They are: 
a. MKERX 
This 18 a three element array that indicates which column 
contains the error message. For the TEKTRONIX 4012, these columns are 
set in Block Data to screen coordinates 640, 340, and 40. 
b. MKERY 
This is a 20 element array that contains the vertical screen 
coordinates of the error messages. The array is initialized in Block 


Data. 
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B. EXTERNAL DATA SETS 
1. Weapon Locations 
This data set is maintained on FORTRAN data set 10. The data 
set is written using (3F10.2) format. The three elements are the X, Y, and 
Z coordinates of the weapon sites. The set contains seven weapon sites. 
These are the coordinates of gun sites 1-6 and the SAM site. 
2. Map File 
This data set is found on FORTRAN data set 9. The format is 
(2F10.2). The information is organized as follows: 

1. The first element is the coordinate set that marks the first point 
to be drawn on the map. 

2. Subsequent data is interpreted as follows: (1) positive values-- 
draw a line to the point that was just read; (2) negative value greater 
than -l--ignore this set, read the next set and move the cursor there 
without drawing; and (3) negative value less than -l--end of data. 

3. Milestone File 
This data set is found on FORTRAN data set ll. The format is 
(4F10.0,13). Each line is organized as follows: 
a. Elements 1-4 
These are the X, Y, Z, and velocity values for the milestone 
in (F10.0) format. 
b. Element 5 
This is the command and is interpreted as follows: (1) 
83--last milestone; (2) 66--release the bomb on this milestone; and (3) 
l--after this milestone, stop reading milestones from the external data 


set and begin accepting them from the user. 
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4. Output Files 
These files contain the data in the formats specified in Refer- 
ences 3 and 4. The POO] file is written to FORTRAN data set 18 and the 
MICE II file is written to FORTRAN data set 17. 
5. Rule File 
This file is found on FORTRAN data set 16. The format is (6F12.4). 
The first set of six contains the values of CLMAX, WL, SPDMIN, GMAX, 
HTMIN, and HTMAX. The second set of six contains POPMIN, APPMAX, TMAX, 
CDO, CDK, and VMAX1. The final set of three contains the values for 


VMAX2, TARGX, and TARGY. 


C. MODULES 
1. MAIN 
a. Function: MAIN controls the execution of the entire program. 
b. Parameters Required: None. 
c. Common Blocks: MN, PAR, PARI, PAR2, OPT, LOC. 
d. Called By: None. 
e. Local Variables: 
(1) I--used as a loop counter. 
(2) FTFAC--constant for converting meters to feet. 
(3) DGFAC--constant for converting radians to degrees. 
(4) ICT--counter used to indicate the milestone selected 
during resets. 
(5) LAST--end of file marker for flight path file. Al 


Indicates the flight path will be continued, 83 marks the final milestone. 
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(6) DX, DY, DZ--X, Y, and Z components of the final leg 


of the flight path, used to compute final values of HDG, CA, XDOT, YDOT, 


and ZDOT. 


(7) BLANK--constant set to 0 for output to flight path file. 
Algorithm 


initialize MBR, MNUM, and T(1) 

call BEGIN [initialize] 

call SCENE [draw map] 

rewind gun disk file 

if (terminal input of gun sites) then [IGUN = 1] 
prompt user to input gun coordinates 


do I = 1 to 6 
do until (IERR = 0) 
leer = 0 


call XYZIN [get coordinates |] 
if (Z1> = 1,000) then STOP 
if (Z1> = 5) then call GUNCHK [check for valid location 
return IERR error code] 
if (IERR<>O then call ERRMK [indicate error ] 
end do 
write Xl, Yl, and Zl to disk file GUNLOC 
end do 
write missile prompt 
do until (IERR = 0) 
call XYZIN [get SAM coordinates | 
if (Z1 > = 1,000) then stop 
call SAMCHK [check for correct placement | 
end do 
write SAM coordinates to disk file 
else if (disk input requested) then do [IGUN = 0] 
do I = 1 to 6 
read XGUN(I), YGUN(I), and ZGUN(I) from disk file GUN LOC 
end do 
read XSAM, YSAM, and ZSAM from disk file GUN LOC 
end if [terminal input selected ] 
do until (command = stop) 
aloe il ll ce) if 
call GUNLOC [draw gun site] 
end do 
cal] GUNLOC [draw SAM site] 
set constants 
prompt user to enter milestones 
rewind milestone disk file PTS LOC 
do until (command = stop or ((command = reset) and (terminal 
input requested)) ) 
Increment MNUM 
do until (IERR*KER = O and IERR <> 12) 
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if (disk input requested) then LIMP = 0] 
Gomunicinie % > 0.1) 
read X, Y, Z, VEL, and LTR [LTR is command 


variable] 
end do 
LTR2 = LTR 
if (command = shift to terminal input) IMP = 1 
[LTR = 1] 
FIX elise, Callen yein tae 4, Y, X, VEL, Ligand LTR2] 
end if 
if (MNUM = 1 and command = stop) then STOP [LTR = 83 OR 
LTR2 = 83] 
if (MNUM > 1) then 
IERR = 0 


call VALSET [compute flight parameters ] 
if (command = bomb release) then MBR = MNUM [LTR = 66] 
if (command <> restart and command <> stop) then 
Like 82aer 6s) 
if (IERR = 0) call ERRCHK [return error code IERR] 
if (IERR*KER <> O or IERR = 12) then 
call ERRMK 
if (disk milestone input) then ask user if 
error is to be ignored 
if (error not ignored) then go to FIX 
end if 
end if 
end if [MNUM > 1] 
end do [until IERR*KER = 0 and IERR <> 12] 
call PTHPLT [mark milestone] 
if (command = aim) call AIMPT [LTR = 65] 
end do [until command = stop or command = restart] 
if (command = restart) then [LTR = 82] 
call SCENE [redraw map and get restart milestone] 
rewind scratch file TEMP DATA 
if (MBR > ICT) then MBR = 0 
if (ICT = 1) then 
MNUM = 0 
else 
do MNUM = 2 to ICT 
call PTHPLT [plot milestones ] 
end do 
decrement NMUM 
end if [ICT = 1] 
end if [command = restart ] 
end do [until command = stop] 
call PTHPLT [plot final milestone] 
LAST = IMP 
call ELFIN [get output options] 
compute final milestone flight parameters 
if (new flight path or new gun locations created) then 
[IMP = 0, IGUN > 0] 
rewind flight path file PTS LOC 
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Figure 6 continued. 
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wite ola Pip 
aption ifne to 
PTS LOC 


Go 11,63 wite 
XGUN, YGUN, 
ZGUN to PTS LOC 


wi tte oe 


and HOG from 


radfans to 


degrees 





call PRESET 


stop 





IF (IGUN > 1) then IGUN = 1 
write header on PTS LOC 
do I = 1 to MNUM 
LTR = 0 
if (MBR = I) LTR = 66 
else if (I = MNUM) then LTR = LAST 
end if 
write to disk file PTS LOC X, Y, Z, VEL, and LTR 
end do 
write end of milestone marker to file PTS LOC 
write old PIP option line to file PTS LOC 
if (IGUN <> 0) then 


domes COs 
write XGUN, YGUN, and ZGUN to disk file PTS LOC 
end do 
write XSAM, YSAM, and ZSAM to file PTS LOC 
end if 


end if [IMP = 1 or IGUN > 0] 
do I = 1 to MNUM 
convert CA, RA, and HDG from radians to degrees 
end do 
Gal | SPRESET 
end MAIN 
fe VALSET 
a. Function: This subroutine computes the flight parameters 
for each milestone. XDOT, YDOT, ZDOT, CA, HDG, and RA are computed for 
output to POO] and MICE II. MD and ACLIFT are computed for use by 
ERRCHK. See Section IV for the equations of motion. 
b. Parameters Required: IERR--set to 12 if there is no change 
in the horizontal (X, Y) position. 
c. Common Blocks: PAR, PARI, PAR2, PAR3. 
d. Called By: MAIN. 
e. Local Variables: 
(1) GEE--gravitational constant 9.82 meters/sec. 
(2) DX, DY, DZ--X, Y, and Z components of the flight-path 
leg being evaluated. 


(3) VAVGL--average velocity of the previous leg. 


(4) DISTL--length of previous leg. 
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velocity. 


yeccor. 
a 
(15) 
(16) 
parallel to the 
(a7) 


DIST--length of the current leg. 
VAVG--average velocity of the current leg. 
DT--time along the current leg. 


AXD, AYD, AZD--X, Y, and Z components of current average 


DELT--time along current and previous legs. 

XDD, YDD, ZDD--X, Y, and Z components of acceleration. 
HDAVG--weighting factor for computing TDX, TDY, and TDZ. 
TOX, TOY, TDZ--weighted X, Y, and Z components of velocity. 


UNIT--conversion factor to make (TDX + TDY + TDZ) a unit 


CASIN, CACOS--sine and cosine of the climb angle CA. 
HDGSIN, HDGCOS-- sine and cosine of the heading HDG. 
All, Al2, Al3--X, Y, and Z components of acceleration 
flight path. 


A2Z1, A22, A23--components of acceleration perpendicular 


to the flight path and parallel to the X/Y plane due to X, Y, and Z 


compenents of acceleration. 


(18) 


A31, A32, A33--components of acceleration perpendicular 


to the flight path not parallel to the X/Y plane due to X, Y, and Z 


components of acceleration. 


f. Algorithm 


compute DX, DY, and DZ 
if (no horizontal motion) then 


else 


IERR = 12 
return 


save old values of VAVG and DIST in VAVGL and DISTL 


compute DIST 
if (VEL > VMAX1 and bomb not released) then VEL = VMAX1 
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Figure 7. VALSET Flow Chart. 
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if (VEL > MAX 2 and bomb released) then VEL = VMAX2 
compute VAVG 
compute DT and T 
compute AXD, AYD, and AZD 
if (MNUM = 2) then 
compute CA, RA, HDG, XDOT, YDOT, and ZDOT for milestone 1 
else 
compute DELT 
compute XDD, YDD, and ZDD 
compute HDAVG 
compute TDX, TDY, TDZ, and UNIT 
if (UNIT < 0.01) then 
IERR = 12 
return 
else 
recompute TDX, TDY, and [DZ 
compute XDOT, YDOT, ZDOT, CA, and HDG for milestone 
MNUM-1 
compute Al1-A33 
compute TMD, ACLIFT, and RA 
end if [UNIT < 0.01] 
end if [MNUM = 2] 
end if [no horizontal motion] 
return 
end VALSET 


3. ERRCHK 
a. Function: This subroutine evaluates the flight parameters 
to ensure that they meet the desired simulation limits. 
b. Parameters Required: IERR--returns the error code for 
Simulation violations. 
c. Common Blocks: PAR, PAR1L, PAR2, PAR3, PAR4, TAR. 
d. Called By: MAIN. 
e. Local Variables: 
(1) DX, DY--X and Y distances to the target, later used as 
the X and Y components of the current leg. 
(2) DIST--distance to the target. 


(3) POPALT--altitude of the pop-up maneuver. 
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(4) TMSAV--saves the value of TMAX before bombs are dropped. 
This is used when the flight path is reset after bombs are dropped. 


- feet“. The 


(5) RHO--density of air in lb sec’ /meters 
mixture of units is necessary since the coordinate system is in Metric 
units and wing loading is in English units. This provides the proper 
units for computing CL and DW. 

(6) CL--lift coefficient. 

(7) OW--drag divided by weight 

(8) TW--thrust divided by weight 

(9) DT--time spent on current leg. 

(10) TGTHDG--heading from the aircraft to the target in 
degrees. 
(11) ACHDG--direction of the current leg in degrees. 
(12) HDGLMT--absolute difference between ACHDG and TFTHOG. 
f. Algorithm 


compute DX, DY, and DIST 
if (MNUM = 2 and TMSAV = -1) then 


POPALT = 0 
TMSAV = TMAX 
end if 


if (MBR = 0 and TMAX <> TMSAV) TMAX = TMSAV [necessary to 
reset TMAX when the flight path is reset following a successful 
bomb release] 
call ERRMK (22) 
if (bomb not released) then [MBR = 0] 
if (DIST > POPMIN and Z > APPMAX) then 
IERR = 4 
return 
end if 
end if 
if (DIST < = POPMIN and Z > POPALT) then POPALT = Z 
if (Z < HTMIN) then 
IERR = 3 
return 
else if (Z > HTMAX) then 
IERR = 4 
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Figure 8. ERRCHK Flow Chart. 
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return 
else if (VEL < SPDMIN) then 

IERR = 5 

return 
end if 
if (MNUM = 2) then Return 
if (ACLIFT > GMAX) then 

IERR = 1 

return 
end if 
compute RHO, CL 
if (CL > CLMAX) then 

IERR = 17 

return 
end if 
compute DW and TW 
if (TW > TMAX or TW < 0) then 

if (TW > TMAX) then IERR = 18 

Recompute DW 

if (TMD + DW < = 0) then IERR = 1 

if (IERR <> 0) then Return 
end if 
if (bomb not dropped this milestone) then Return [MNUM <>MBR] 
compute DT, DX, DY, TGTHDG, ACHDG, and HDGLMT 
if (POPALT < 1,000) then IERR = 6 
else if (Z < 100) then IERR = 7 
else if (Z > 2,000) then IERR = 8 
else if (DIST > 2,000) then IERR 
else if (HDGLMT > 5) then IERR = 
else it (On < 2.33) then TERR = 1 
else TMAX = 1.2*TMAX 
return 
end ERRCHK 


= 9 
10 
1 


ee PP HPLT 


a. 


Function: This subroutine notifies the user that his mile- 


Stone has been accepted and then saves the successful point in a temporary 


aiisk file. 
oe 


C. 


Parameters Required: None. 
Common Blocks: MN, PAR, PARL. 
Called by: MAIN. 


Local Variables: None. 


62 





PTHPLT 


start 


def{ne the map 


move to 
previous 
m{ lestone 


draw line to 
urrent 
af lestone 


label alflestone 


save al lestone 
date {n TEM 
DATA 






return 


Figure 9. PTHPLT Flow Chart. 
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Algorithm 


call WIN [define map window] 

move to previous milestone 

draw line to present milestone 

label milestone 

write X, Y, Z, VEL, and a O to scratch file TEMP DATA 
return 

end PTHPLT 


ee «POT 


d. 


Function: This subroutine obtains an X/Y coordinate pair 


and two commands from the user. 


b. 


the calling 


the calling 


Parameters Required: 

(1) X, Y--X, and Y values obtained from the user, returned to 
routine. 

(2) Ll, L2--two commands obtained from the user, returned to 


routine. 


c. Common Blocks: None. 
d. Called By: XYZIN. 
e. Local Variables: A, B--dummy variables needed for subroutine 
VCURSR. 
f. Algorithm 
do until (command <> no) [L2 <> 78] 
impute x. Y. and LL 
put point at (X, Y) 
input L2 to verify location 
end do 
return 
end SPOT 
pee oCENE 
a. Function: This subroutine draws the attack scenario map 


and associated displays. During reset it obtains the last milestone the 


user wishes to retain. 
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Figure 10. SPOT Flow Chart. 
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b. Parameters Required: 
(1) IRQ--signifies the reset condition: 1 for reset, 0 for 
initial drawing. 
(2) ICT--the last milestone the user wishes to retain, 
returned to the calling routine. 
c. Common Blocks: ERR, MN, TAR, PAR. 
d. Called By: MAIN. 
e. Local Variables: 


(1) MAP--controls whether or not the road, buildings, and 
river are drawn. 
(2) X, Y--X and Y coordinates of points on the map. 
(3) IT--loop counter. 
(4) IW--scale factor for jase dns the axes of the map. 
(5) I--index for MKERX. 
f. Algorithm 


clear screen 
write village option prompt 
read village option [MAP ] 
if (restart) then [IRQ = 1] 
write restart prompt 
read restart point 
end if [restart] 
call WIN to define map 
if (village drawn) then [MAP = 1] 
rewind disk file PICTUR DATA 
read TX, TY 
do until (TX < -1) 
read TX, TY 
move to TX, TY 
GomunEa tA < Grand TY > <1) 
read TX, TY 
if (TX > 0) then draw to (TXM TY) 
end do [TX < 0 and TX > -1] 
end do [TX < -1] 
end if 
call GUNLOC to mark target 
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Figure 11. SCENE Flow Chart. 
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i. IN 


a 


label map axes 

if (restart) then mark last altitude and velocity 
write error messages 

return 

end SCENE 


Function: This subroutine defines a window on the screen 


and sets its virtual boundaries. The lower left corner is set to (0,0). 


b. Parameters Required: 
(1) LX--minimum screen X coordinate. 
(2) MX--maximum screen X coordinate. 
(3) RX--maximum virtual X coordinate. 
(4) RY--maximum virtual Y coordinate. 
(5) JMP--controls flashing of the window being defined. 
c. Common Blocks: MN. 
ae Called By: SPTHPLT, GUNLOC, SCENE, XYZIN:. 
e. Local Variables: 
(1) ICT--determines how many times the window will flash. 
(2) I--loop counter. 
f. Algorithm 
define window screen boundaries 
define window virtual boundaries 
if (flash requested) then 
compute [CT 
do. | =. i816 ICT 
flash window 
end do 
end if 
return 
end WIN 
8. XYZIN 
a. Function: This subroutine obtains the X, Y, Z, velocity, and 


command for 


the milestone. 
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Figure 12. WIN and XYZIN Flow Charts. 
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b. Parameters Required: None. 
c. Common Blocks: MN, LOC. 
d. Called By: MAIN. 
e, Local Variables: None. 
f. Algorithm 
call BELL 
call WIN to define the map 
Gallicspor for X.Y. (EIR 
Ga llBEEL 
call WIN to define the altimeter 
Call SPOl tor Z, Vi, "and. LIKZ 
if (LTR is lower case) then convert LTR to upper case 
if (LTR2 is lower case) then convert LTR2 to upper case 
return 
end XYZIN 
9. GUNLOC 
a. Function: This subroutine marks the indicated spot with a 
"+" and draws a circle around it. 
b. Parameters Required: 
(1) GX, GY--X and Y coordinate of the point to be marked. 
(2) RAD--radius of the circle marking location. 
c. Common Blocks: MN. 
dee Called By: MAIN, SCENE. 
e. Local Variables: 
(1) ISTEP--size of the step in the loop which draws the 
circle. Small circles use fewer points, therefore, ISTEP will be larger. 
(2) Angle--angle around the circle at which a point will be drawn. 
(3) DX, DY--X and Y coordinates of the point to be drawn. 
f. Algorithm 
call WIN [define map window] 
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Figure 13. GUNLOC Flow Chart. 
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compute ISTEP 
draw dotted circle around site 
return 
end GUNLOC 
nor 6BEGIN 
a. Function: This subroutine initializes the graphics and 
requests the user's options. 
b. Parameters Required: None. 
c. Common Blocks: MN, PAR, OPT. 
d. Called By: MAIN. 
e. Local Variables: KON--user input: 0O indicates the user 
wishes to use default simulation parameters, any other value causes a 
cal] to CONCHG to allow the user to input his own parameters. 
f. Algorithm 
call INIT [initialize graphics ] 


clear screen 
write gun option prompt 


read IGUN 
write milestone option prompt 
read IMP 
write error option prompt 
read KER 
write terminal option prompt 
read IBAUD 
write parameter input prompt 
read KON 
if (KON <> 0) then cal] CONCHG 
set IPLOT = l 
compute map and altimeter boundaries 
return 
end BEGIN 

11. GUNCHK 


a. Function: This subroutine checks gun locations against 
emplacement rules. 
b. Parameters Required: 


(1) X, Y--location of the gun site. 
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Figure 15. GUNCHK Flow Chart. 
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(2) IERR--error code set to 13 if emplacement rules are 
violated. 
c. Common Biocks: TAR. 
d. Called By: MAIN. 
e. Local Variables: DIST--distance from the gun site to the target. 
f. Algorithm 
compute DIST 
if (DIST < 3,000) then IERR = 13 
return 
end GUNCHK 
i PRESET 
a. Function: This subroutine writes the POO] and MICE [I files 
for the user. 
b. Parameters Required: PAR, PAR1, PAR2, OPT. 
c. Common Blocks: None. 
a Cailed BY: None. 
e. Local Variables: 
(1) RCSTAB--radar cross-section table. 
(2) VATIN2--vulnerability table against type 1 and 2 weapons. 
(3) VAT3--vulnerability table against type 3 weapons. 
(4) VAT5--vulnerability table against type 5 weapons. 
(5) TINC--total flight time, T(MNUM), divided by 1,000 
with 0.0008 added to eliminate round-off errors due to POO1's method of 
time calculation. 
(6) TINKI--temporary time marker. 
(7) TINK--array with nine elements, the Ith element has a 


value I*T(MNUM)/10. 


(8) FTFAC--conversion factor from meters to feet, set to 3.28084. 
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(9) XFSAM, YFSAM, ZFSAM--X, Y, and Z coordinates, in feet, of 
the missile site. 

f. Algorithm 

compute TINC AND TINK 
if (POO1 file requested) then write POO] DATA file [LIPNCH = 1 or 3] 
if (MICE file requested) then [IPNCH = 2 or 3] 
print MICE DATA file header 
convert X, Y, Z, and VEL from meters to feet 
print remaining data to MICE DATA 
end if 
return 
end PRESET 
i. ELFIN 

a. Function: This subroutine requests the user's output options and 
closes the graphic routines. 

b. Parameters Required: LAST--this is both a command parameter 
to ELFIN and a returned value to MAIN. Sent as a command, it has the 
following meaning: 

(1) O--no further action is required. 
(2) l--ask the operator whether or not he is finished with 
the flight path or wishes to continue at a later time. 
If LAST was sent as 0, it is returned as an 83. If al was sent, it 
returns as follows: 
(1) l--user wishes to continue the flight path at a later 
time. 
(2) 83--user is finished with the flight path. 
c. Common Blocks: MN, OPT. 
d. Called By: MAIN. 


e. Local Variables: ICT-- loop counter that determines how 


often the prompt line will be flashed. 
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Figure 17. ELFIN Flow Chart. 
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f. Algorithm 
write ending prompt 
compute ICT 
dowt==—<! to [CT 
CaliPe ei 
underline prompt 
end do 
call SCURSR [wait for user to finish viewing screen] 
clear screen 
call FIN [closes graphics routines ] 
iheasm <> Oy) 
do until (ABS (LAST) < 2) 
write flight path completion option prompt 
read LAST 
end do 
compute LAST 
end if 
write output file option prompt 
read IPNCH 
if (LAST = 0) LAST = 83 
if (no output requested) then return [IPNCH = 0] 
if (POO] file requested) then [IPNCH = 1 or 3] 
write extended output option prompt 
read [EXT 
end if 
if (MICE file requested) then [IPNCH = 2 or 3] 
do until (ISAM > = 1 and ISAM < = 7) 
write missile option prompt 
read ISAM 
end do 
end if 
return 
end ELFIN 
14. AIMPT 
a. Function: This subroutine marks a line from the aircraft's 


current position to the target to help align the bomb release leg. 


Oy 


Cc. 


Parameters Required: I--number of the current milestone. 
Common Blocks: PAR, TAR. 
Called By: MAIN. 


Loca! Variables: None. 


WS 





AIMPT 


move to current 
mf lestone 


Craw dashed 


line to target 





Figure 18. AIMPT Flow Chart. 
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f. Algorithm 


move to (X(I), Y(I)) 

draw dashed lined to target 
return 

end AIMPT 


15. CONCHG 

a. Function: This subroutine allows the operator to change the 
simulation parameters. 

b. Parameters Required: None. 

c. Common Blocks: PAR3, PAR4, TAR. 

d. Called By: BEGIN. 

e. Local Variables: K--counter to indicate which parameter the 
user wants to change. 

f. Algorithm 


clear screen 
do until (input completed) [K 
do until (K > = 1 and K < 
write prompt 
read K 
end do 
if (K > 1 and K < 16) then 
write prompt for parameter to be changed 
read new value of the parameter 
else if (K = 16) 
read parameter values form disk file PAR SAV 
else if (K = 17) 
list parameter values to the terminal 
end if [K > 1 and K < 16] 
end do [input completed (K = 1)] 
write parameter values to disk file PAR SAV 
return 
end CONCHG 


Yo 
f- 
~ 

~~ 


16. ERRMK 


a. Function: This subroutine sends prompts and error messages to 


the user. 
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Figure 19. CONCHG Flow Chart. 
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b. Parameters Required: IERR--this indicates which message is 
to be sent to the operator. 
c. Common Blocks: ERR, MN. 
d. Called By: MAIN, VALSET, ERRCHK, SAMCHK. 
e. Local Variables: 
(1) J--column index. 
(2) MKX, MKY--working variables to help define the message 
line. 
(3) K--counter which defines how many times the prompt line 
is displayed. 
f. Algorithm 


if (IERR > 20) then 
compute MKX and MKY 


do I = 1 to 6 
draw line from (MKX, MKY) to MKX + 30, MKY) 
end do 
else 
o = 2 


I, TERRE < =96) then J =a 
else if (IERR > 12) then J = 3 
compute K and MKY 
do I =1tokK 
draw line from (MKERX(J), MKERY(IERR) to (MKX, MKERY(IERR)) 
i iu ehOn mca Nimbie te 
end do 
end if 
return 
end ERRNK 


7. SAMCHK 
a. Function: This subroutine checks the missile location 
Tor emplacement rule violations. A violation causes a call to ERRMK with 
an error code of 19. 
b. Parameters Required: 


(1) X--X coordinate of the missile site. 
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Figure 20. ERRMK Flow Chart. 
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(2) IERR--error code, set to 0 if no violation occurs and set 


moet if it does. 
c. Common Blocks: None. 
d. Called By: MAIN. 
e, Local Variables: None. 
f. Algorithm 
IERR = 
if (X < 6,000) then call ERRMK (19) 
IERR = ] 
end if 


return 
end SAMCHK 
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Figure 21. SAMCHK Flow Chart. 
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VII. MODIFICATION INSTRUCTIONS 


A. GENERAL 

As stated in the introduction, one goal of this effort was to develop 
a program that would be transportable to other systems. This section 
will discuss the general requirements to achieve this conversion and 
then describe how it can be implemented in the two versions that currently 
exist at the Naval Postgraduate School. 

The first change that must be made is the conversion to the user's 
graphics system. The program requires the following capabilities: 

1. Screen and Virtual Window Definition 

TWINDO defines a window in screen coordinates while DWINDO 

defines the virtual coordinates the current screen window will assume. 
NEWPAG clears the screen, but does not change the window definitions. 

2. Move and Draw 

A "move" positions the electron beam at a point on the screen, 

Dut does not draw anything. A "draw" creates a straight line on the 
Screen from the current beam position to the position identified in the 
parameter list. MOVABS and DRWABS are absolute screen coordinate move 
and draw commands. MOVEA and DRAWA are the virtual coordinate commands 
to accomplish these functions. MOVREL is a virtual move relative to the 
Current beam position and DASHA is a virtual draw that creates a dashed 


line. 
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3. Print to the Graphics Screen 

Printing to the screen creates alphanumeric characters on the 
screen, as opposed to connected lines. ANMODE enables the printing 
capability. 

4. Cursor Input 

Cursor input allows the user to enter a command value and the 
X and Y coordinates of a point on the screen. VCURSR accepts data in 
virtual coordinates while SCURSR works in screen coordinates. 

The user's functions for these four actions must be substituted 
for the PLOT-10 functions according to Table 1. 

The next change that must be made is to implement the user's air- 
craft performance constraints. The module VALSET contains the equations 
for computing the necessary performance values and has the ability to 
indicate boundary errors via the parameter IERR. The constraints on the 
system are contained in module ERRCHK, and performance violations are 
passed with the parameter IERR. The various values assigned to IERR are 
used by ERRMK to communicate with the user whenever the graphics routines 
are being used. Therefore, not only the error messages, but also user 
prompts must be supported by this module. There is one other constraint 
on the value assigned to IERR. When assigned a value of 12, the user's 
option to ignore errors is overridden. This allows the programmer to 
guard against situations the program is unable to handle, such as division 
Dy zero. 

The final change is in the format of the output files. Because the 
program was written to support a particular Naval Postgraduate School 


course, a fixed number and type of weapons is expected. The module MAIN 
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accepts the input of the first six guns and one SAM site and assigns a 


seventh gun location. The module PRESET assigns the guns the following 


description: 
GUN TYPE MODE 
1-2 l l 
3-4 2 l 
5 S 4 
6 S 3 
i 5 3 


To change this assignment, the module MAIN must be modified to accept and 
display the additional information and PRESET must be rewritten to 


recognize varying numbers and types of weapon sites. 


B. THE KEYBOARD VERSION (KBPIP) 
The keyboard version was written to operate on any keyboard terminal. 
To a large extent, this was simply a matter of removing the graphics 
functions from GRPIP. Modules that had only graphics functions were not 
eliminated, but were converted into stubs. The remainder of this section 
will describe the changes to the modules in KBPIP that are necessary for 
conversion. 
1. MAIN 
This module had to notify module XYZIN whether it was expecting 
weapon or milestone information. A parameter was added to XYZIN, with an 
Q indicating weapon input and a1 for milestone data. 
2. ERRMK 
This module contains messages that were previously written on 


the screen by SCENE. It uses FORTRAN WRITE statements to notify the 
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user, rather than highlighting a previously written message. In addition, 
the input data is echo printed to assist the user, since this function 
was automatic in the graphic version. 
3. PTHPLT 
This module now writes a message indicating that the milestone 
has been accepted as valid. 
4. GUNLOC, WIN 
These modules are now simply stubs. 
Be. oPOT 
This module now uses READ and WRITE rather than cursor inputs. 
This means that it must be able to identify what type of data is expected 
in order to write the appropriate prompts. The parameter Ll is sent with 
a value of 0 to indicate that X and Y are to be read, and a value of l 
indicates that the value of L2 must be checked. If L2 is 0, the calling 
routine expects only an altitude. If it is 1, the calling routine 
expects an altitude, velocity, and command. The module must then convert 
the command from the user's format to that used by MAIN. 
6. SCENE 
The entire map drawing function has been eliminated. When called 
during reset, the module prints the data for the last milestone retained 
by the user, to assist in the selection of the values for subsequent points. 


te AY LIN 





The module is sent the parameter IV. It uses the value of this 
Parameter to determine whether the calling routine needs only X, Y, and Z 


coordinates, or X, Y, Z coordinates, velocity data, and a command. It 


Passes this information to SPOT via parameters LTR, LTR2, and LDM. 


Sal 





or. 


BEGIN 





The initialization of graphics routines has been eliminated. 
AIMPT 


This module now gives the distance to the target and how much 


the current X and Y values must be changed to align the flight path 


correctly. 


FO. 


el 


ELFIN 
The release of the graphics resources has been eliminated. 


CONCHG 





The screen clearing command is no longer required. 


C. THE IBM GRAPHICS VERSION (IBMPIP) 


The IBM graphics version, with its dual screens, was to a certain 


extent a merger of the PLOT-10 and keyboard versions. The necessary 


Changes are described below. 


if 


2. 


PTHPLT, GUNLOC, SCENE, WIN, ELFIN, AIMPT, SPOT 
IBM functions are substituted for equivalent PLOT-10 functions. 
BEGIN 


New screen coordinates are used. In addition, the graphics 


initialization and screen erasing functions are moved from the beginning 


to the end of the module. 


Bi. 


CONCHG 





The screen clearing function is eliminated. 


ERRMK 





The module flashes a small window on the graphics screen to 


indicate a message is on the alphanumeric screen. It uses the 


Ga 





alphanumeric screen to write the message. In addition to the message, 


the data input on the most recent attempt is printed if an error occurs. 
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VIII. MAP GENERATION 


To support the graphics capability of the program, it was necessary 
to provide a map of the attack area to the user. To do this, it was 
necessary to select points on the actual map and copy them to a data file for 
later use. This can be done manually with rulers and pencil, which is 
subject to all the problems involved in properly marking and transferring 
the data. An alternative was to utilize the graphics capability of the 
system to generate the map information. To accomplish this, a program 
called SCENE was written. 

The prerequisite to utilizing SCENE is a transparency of the desired 
map. SCENE SSRIs a6 x 4 inch transparency representing an 18,000 x 
12,000 unit field. This can be changed by changing the values of MINX, 
MAXX, MINY and MAXY and the values in the DWINDO call. 

The program starts by asking the user whether he wants to create a 
new map or continue an old one. A positive integer means a new map, zero 
or a negative number indicates an old map. If selected, the old map is 
then drawn. The user then places the transparency over the map outline 
drawn on the screen. Points are input in the following manner. First, 
the cursor is positioned under the selected point. A key is pressed to 
mark the spot. The capital "M" and "S" keys have a particular meaning. 
The "M" key informs the program that the following call will be a move, 
not a draw. The "S" key marks the final spot and informs the program to 
Stop execution. All other keys indicate that the next call is a draw 


command. 
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The data is written to a FORTRAN data set 9 using 2F10.2 format. The 
data has the following meanings: 

1. Two positive values--these represent a data point on the map. 

2. -0.5, 0.0--this is a mark to indicate that a move to the coordinates 
in the next entry is to occur. 

3. -2.0, 0.0--this is the end of file marker. If the user is con- 
tinuing work on a map, it will be necessary to erase the original 
marker after he finishes the current session. This is done by 
editing the data file and removing the first end of file marker. 

In addition to the cursor input, data points can be entered by 
editing the file. This allows the user to smooth curves by adding 
intermediate points and to make corners connect exactly. One example of 
these capabilities is the drawing of the buildings. Rather than trying 
to exactly line up the corners, only the diagonal defining the rectangle 
was drawn with the cursor. The data file was then edited to fill in the 
missing corners. This ensured that the corners were perpendicular and 


met at the line end points. 
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IX. PROBLEMS AND IMPROVEMENTS 


Two major problem areas were encountered in terms of software develop- 
ment. The first involved the utilization of graphics resource drivers 
and the second was version control. A major problem with the PLOT-10 
graphics package is that there are errors in the Naval Postgraduate 
School's implementation of several of the translation tables. As a 
result, the system will occasionally become highly erratic; drawing 
random lines over the entire screen, or reading incorrect values from the 
cursor. This erratic behavior was the original reason the verification 
input was included in the graphics sequence. This problem remains 
uncorrected. 

The major difficulty with the IBM graphics package was the lack of 
familiarity with the package on the part of computer center personnel. 
The package was installed in April 1982, and the only documentation 
available was the IBM technical manual. Implementing IBMPIP was, 
therefore, limited to using those functions which could be easily iden- 
tified, primarily the bridge functions. Therefore, it was not possible 
to utilize the extensive capabilities of the package. As more experimenta- 
tion with the package is afforded, the capabilities of this package 
snould be enhanced. In addition, there are plans to obtain a core 
graphics system which will support TEKTRONIX, IBM, and VERSATEC plotting 
routines in a device-independent manner. This means that the user wil] 
be able to use high-level graphic functions. These will execute equally 


well on all three systems and the device-specific calls will be generated 
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by the high-level functions at execution time. If the programmer wishes 
to use the unique capabilities of a particular device, such as cursor 
redefinition in the IBM package, he will still have to use the functions 
specifically dedicated to that device. 

Since the core system was not available, the two graphics systems 
required separate software versions to execute on their respective hard- 
ware. The non-graphics keyboard implementation required a third version. 
This caused a Significant management problem. What was a simple change 
on one system was frequently difficult on another. For instance, 
correction of errors when milestones were read from the disk was quite 
Simple to accomplish with the keyboard version. The prompt was displayed, 
the response was accepted, and the appropriate action was carried out. 
Once this was tested, the source statements were copied into IBMPIP and 
checked out. This, too, went well. However, the change to GRPIP was 
extremely difficult. First, the message had to be added to the message 
list in SCENE, as opposed to ERRMK in the other two versions. ERRMK had 
to be changed to accommodate a new error location. Finally, the location 
of the various error messages had to be rearranged four times before one 
was found that did not result in the new message overwriting another 
message. Similar problems occurred when converting graphic to non-graphic 
techniques. Although the functions are identical in each version, most 
changes in the program resulted in three similar, but unique, changes in 
the implementation. When the time required to recompile and test these 
versions is considered, a simple change for cosmetic effects rapidly 


loses its desirability. 
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Although not as difficult an obstacle as the software, the hardware 
did pose a problem. The capabilities of a storage tube device severely 
limited the alphanumeric interaction with the user. The first problem 
arose with GRPIP, which was how to write messages to the user without 
destroying the graphic display or overwriting a previous message. The 
solution was to write all possible messages beforehand and then identify 
their location on the screen for later use. This in turn meant a trade- 
off between a display large enough to be useful while retaining sufficient 
working space for writing the messages. With the availability of the IBM 
package, this problem was significantly reduced. With the second screen, 
alphanumeric interaction was relatively simple. The problem then became 
one of how to notify the user to change input screens. This was solved 
by adding an attention window, which flashed to inform the user that 
something was occurring on the other screen. 

There are several improvements that can be made to increase the 
program's utility. A major improvement would be to use the data input by 
the user to derive several intermediate milestones. A quick way to do 
this would be to use the averages already computed to create additional 
milestones. A better way would use the operator's input and computed 
averages to fit a curve to the points if desired by the user. Additional 
milestones would then be created by selecting intermediate points on the 
curve. In addition to smoothing the flight path, realism could be 
enhanced by providing for terrain masking. PO0O1 provides for gun masking 
arcs and if the terrain was identified as geometric shapes, chopped conic 


mountains and a polynomial river for example, these arcs could be computed. 
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In addition to increased realism, the program could be improved 
by adding flexibility to the weapon and aircraft descriptions. The 
present program utilizes a fixed number of weapons firing at a particular 
type of aircraft. This was necessary to limit the action required by the 
Students using the program. Making the number and type of weapons 
variable would require a relatively modest effort, but would greatly 
expand the software's flexibility. In addition, it would improve the 
realism of the scenario. POOl only supports one firing arc per gun. By 
making the number of guns variable, a single gun site which has several 
distinct firing arcs could be identified as several guns at one location, 
each with different firing arcs. The aircraft type can be changed by 
changing the vulnerability and radar cross-section data statements. 
Providing access to external files to obtain this information would also 


expand the flexibility of the program. 
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I. INTRODUCTION 


This aircraft attrition study is designed to present the student with 
an opportunity to see first-hand how the survivability of an aircraft can 
be evaluated in a given combat scenario. The methods employed in this 
study are those used by both industry and government when making decisions 
in the survivability analysis and design of an aircraft weapon system. 

In this study, one computer program named POO] (the AFATL Antiaricraft 
Artillery Simulation Computer Program) will be used to simulate the 
flight of a typical Naval attack aircraft through a hostile antiaircraft 
artillery (AAA) environment and to compute the aircraft probability of 
Survival. Another computer program, MICE II (the Missile Intercept 
Capability Evaluation Program), will be used to compute the survivability 
of the aircraft on the same flight path against a typical short- to 


medium-range surface-to-air missile (sam) .2 


lthe DoD specifies the use of POO] and MICE in all nonnuclear 
Survivability assessments in MIL-STD-2069, REQUIREMENTS FOR AIRCRAFT 
NONNUCLEAR SURVIVABILITY PROGRAM, 24 August 1981. 
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IT. PROBLEM DEFINITION 


You are going to conduct a survivability assessment of a familiar 


Naval aircraft, shown in Figs. 1 and 2, on a typical attack mission 


to destroy the bridge shown in Fig. 3. 


The class will be divided into groups of four, with two members in 


each group on the blue team and two members on the red team. 


Each team will use POO1 and MICE II to determine the survivability 


of the aircraft in the class problem scenario, as follows: 


WZ 


Each team will select a flight path to the bridge according to 
the rules of the scenario given in Section IV. Keep this path a 
secret. 

Each team will also select the locations of six AAA emplacements 
and one SAM that will defend the bridge against an air attack. 
Locate the weapons according to the order of battle given in 
Section IV. Keep these locations secret, also. 

Each team will conduct an attack against the other team in the 
group. 

The input data file for the computer runs for the blue team 
attacking the bridge defended by the red team will consist of the 
flight path of the blue aircraft flying through the AAA and SAM 
emplacements selected by the red team. 

Conversely, the input data file for the computer runs by the 


red team against the blue team will consist of the flight path of 
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the red aircraft flying through the AAA and SAM emplacements 
selected by the blue team. 
May the best team win. A small] prize will be awarded to the team 
whose aircraft has the highest probability of survival against their 


opponent's weapon distribution. 
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III. SCENARIO DESCRIPTION 


This scenario is purely for instructional purposes and is not based 
on any actual or planned combat attack situation. The target site, 
order of battle, and flight path and weapon delivery parameter limits 
have been chosen only to provide guidelines for the class problem. As 
much realism has been introduced for the players as possible while 
retaining an unclassified scenario. 
Your target is the bridge shown in Fig. 3 located at: 
X: 14,000 meters 
Ve 7,220 meters 
ee 20 meters 
Heavy military supply traffic has been reported in this area. 
Your mission is to destroy this vital supply link. 
The following order of battle has been gathered from intelligence 
reports of the target area: 
SAM - one site in the vicinity of the target 
AAA - two type 1 mode 1 
two type 2 mode 1 
one type 3 mode 4 
one type 3 mode 3 
one type 5 mode 3 
(NOTE: Gun types and their relationship to AAA and the SAM type 


will be discussed in class.) 
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The SAM threat requires that the inbound approach to the target be 
made from the west at low level. A pop-up maneuver is required to 
visually identify the target followed by a dive bombing run to weapon 
delivery. The aircraft ordnance consists of MK82 500-pound Snakeye 
bombs. Egress must be made to either the north or south, depending 
on individual strategy. 

The following is a list of scenario limitations to be used in the 

development of your strategy: 

1. Aircraft cruise speed--90 to 220 meters per second (400 to 500 
knots). 

2. Inbound altitude--/70 to 450 meters. 

3. Maneuvering--the aircraft is limited by its thrust, speed brakes, 
and loading. A maximum speed of approximately 225 meters/sec is 
attainable before bomb release, and it increases to about 235 
after weapon release. The thrust available and speed brakes 
limit the amount of velocity can be changed. Combined with the 
loading, they serve to limit the amount of turn allowed. In 
both cases, the longer the leg, the more change can be accepted. 

4. Pop-up maneuver 
a. Commence maneuver--a maximum of 6,000 meters from the target. 
b. Maneuver altitude--in order to locate the target, you must 

pop-up to a minimum altitude of 1,000 meters. 

9. Ordinance delivery 
a. A boresighted glide/dive delivery is required. 

b. Alignment--the leg immediately prior to the bomb release 


point must be straight, last 2.33 seconds, and must have 
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a heading within 5° of the heading to the target from the 
bomb release point. 
c. Bomb release range--between 100 and 1,000 meters from the 
target. 
d. Bomb release altitude--between 100 and 2,000 meters. 
6. Weapons placement 
a. Two type 1 mode 1, two type 2 mode 1, one type 3 mode 4, 
and one type 3 mode 3 weapons are available for defense 
placement. Neither of the type 3 weapons may be placed 
within 3,000 meters of the center of the bridge. A type 5 
mode 3 weapon is fixed at (X, Y, Z). 
b. One type 5 SAM system is to be placed anywhere on the roads 
eastward of the six kilometer X axis position. 
Begin the flight path at an entry point of your choosing along 
the western boundary and end it along the northern or southern 
boundary. Anticipate the AAA and SAM placement for bridge defense 
and plan you flight path accordingly. 
Locate the AAA and SAM weapons given in the order of battle to best 


defend the bridge against your opponent's attacking aircraft. 
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IV. INPUT DATA FORMAT 


Three preprocessor programs for POO1 and MICE II are available 
at the Naval Postgraduate School. These programs create the scenario, 
flight path, aircraft vulnerability, and weapon location and character- 
istics data files necessary for the execution of POO] and MICE II. The 
preprocessing programs are GRPIP (Graphic POO1/MICE II Input Program), 
KBPIP (Keyboard POO1/MICE II Input Program) and IBMPIP (IBM POOI1/MICE II 
Input Program). GRPIP is for use on the TEKTRONIX 4010 family of terminals, 
KBPIP can be used at any keyboard, and IBMPIP runs on IBM 3277 graphics 
terminals. All of these programs operate in the same fashion, only the 
manner of data entry is different. 
A. PROCEDURE FOR EXECUTING POO] AND MICE II 


1. Log on to VMS 


Be ENTER: CP LINK TOT oZaR 
the message "ENTER READ PASSWORD:" will appear 
ENTER: 


ENTER: ACC 192 B 

a. If you have never used GRPIP or IBMPIP, the following file 
contains the points for drwing the scenario map. 

ENTER: COPYFILE MAP DATA B=2=A 


a. To use GRPIP, ENTER: GRPIP 

b. To use KBPIP, ENTER: KBPIP 

c. To use IBMPIP, ENTER: IBMPIP 

d. Execute the selected preprocessor program (see the following 
sections 


4. To execute POO] 
a. XEDIT file POO] DATA and insert your JOB card as the first 
line (see computer center manual MVS-O1 pg. 18) 
b. Then FILE POO] DATA 
c. ENTER: SUBMIT POO] DATA 


5. To Execute MICE II 
a. XEDIT MICE II DATA and insert your JOB card as the first line. 
line 
b. Then FILE MICE DATA 
c. ENTER: SUBMIT MICE DATA 
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B. EXECUTING GRPIP (TEKTRONIX Terminals Only) 

NOTE: The TEKTRONIX terminal at the computer center does not 
react to the "RETURN" button. Push "CTRL" and "S" simultaneously for a 
carriage return. 

NOTE: For the terminal at the computer center, the cursor wil] 
disappear, but the entry will not be accepted when the key is pressed. 
On this terminal, press "CTRL" "S" after pressing a key to enter the 
data. 

1. Enter: GRPIP 

The following message wil] appear: 
NOTICE YOU ARE LINKED TO 491 AS D FOR TEKTRONIC ROUTINES 
This is followed by a delay as the program loads. When loading 
is complete, the message "EXECUTION BEGINS" will appear, followed by the 
screen flashing twice. 

eee initialization 

The program will request data necessary to initialize the system. 
The following message will appear: 

GUNS: O = DISK FILE; 1 = TERMINAL READ; 2 = PRESET 

a. FILE: This reads the file created on a previous run using 
option 1. Do not select this option if you have never entered gun and 
missile locations at the terminal. 

b. TERMINAL: With this option you enter your own locations. 
The gun and missile locations will be saved for later use. 

c. PRESET: GRPIP has preset gun and missile sites if you 


want to use them. 
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The next message you will see will be: 

MILESTONE INPUT: O = DISK FILE; 1 = TERMINAL 

a. DISK: This reads a previously created file. Do not use this 
option if you have never run GRPIP, KBPIP, or IBMPIP. 

b. TERMINAL: This allows you to create a new flight path. 

When this is done, the following message will be displayed: 

ERROR CHECKING: 0O = NO CHECKING; 1 = CHECK FOR ERRORS 

a. NO CHECKING: With this option game and flight rule errors 
will be ignored. 

b. CHECK FOR ERRORS: With this option, errors will result in 
the operator being notified of the cause. When the terminal input option 
is in effect, the milestone data will be ignored and new data requested. 
If the disk input option is in effect, the user will see the following 
prompt if an error occurs during execution: 

POPVOUTNIOH 10 FIX THE ERROR: O = NO, USE THE POINT 1 = YES 

a. QO: The program will ignore the error and use the data. 

b. 1: The program will request new data for the current mile- 
Stone only. Subsequent data will be obtained from the disk. Note that 
the correction may cause errors in subsequent milestones. 

The next message to appear will be: 

FLIGHT AND GAME PARAMETERS: O = DEFAULT; 1 = USER INPUT 

a. DEFAULT: This uses preset game and flight parameters for 
error checking. 

b. USER INPUT: This allows the user to reset error parameters 
to reflect different game and flight rules. See PARAMETER CHANGING for 


further information. 
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se Gun and Missile entry 

Following initialization, the screen will go blank and the 
following message will appear: 

VILLAGE: 0 = NOT DRAWN; 1 = VILLAGE DRAWN 

a. NOT DRAWN: This option results in only the gun, SAM, and 
target locations being drawn. This saves a great deal of time, 
particularly on 300 BAUD terminals. 

b. VILLAGE DRAWN: This option draws the village, road, and 
river. When inputting the gun and SAM sites, this option should be 
chosen to meet the game requirements. Drawing the full map takes about a 
minute at 1,200 BAUD terminals and about 5 minutes at the slower ones. 

If the preset (option 0) or file (option 2) locations are 
used for the gun and missile sites, they will be drawn immediately. The 
gun sites are represented by a "+" surrounded by a dotted ring at the 
engagement radius. The SAM site is a "+" with a small circle around it. 
The target is a "+" with two small circles around it. User input of the 
gun sites is as follows: 

a. The message ENTER GUN COORDINATES will be underlined. 

b. A bell will sound and the map border will flash. 

c. A cursor will appear. 

d. Position the cursor with the thumbwheels on the right of the 
terminal. 

e. Press any key. The cursor will disappear, a point will 
appear, and the cursor will re-appear. If the cursor reappears, but not 
the point, or if you change your mind, press "N" to cancel the input. 


f. Press any key except "N" to accept the X and Y values. 
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g. A bell will ring and the altimeter border will flash. 
h. Position the cursor in the altimeter and enter the point as 
above. Note that the altimeter is marked in 100's of meters. 
i. Repeat steps b-h five times. The guns are input in the 
following order: 
(1) Two Type 1 mode 1--1,000m engagement radius 
(2) Two Type 2 mode 1--1,400m engagement radius 
(3) One Type 3 mode 4--2,500m engagement radius 
(4) One Type 3 mode 3--2,500m engagement radius 
NOTE: The type 3 guns may not be within 3,000 meters of the target. If 
you attempt this, the message TOO CLOSE TO TGT will be underlined and a 
bell will ring several times. The point will be rejected and you will 
have to enter it again. 
NOTE: Entering a weapon (gun or missile) altitude greater than 1,000 
meters will] abort the program and destroy a previously created GUN LOC file. 
When all six gun sites are correctly entered, the message ENTER 
MISSILE LOCATION will be underlined. Repeat steps b-h. 
NOTE: The X coordinate must be greater than 6,000 meters or the error 
message X COORDINATE < 6,000 will be presented. 
4. Milestone Entry 
When you have finished entering the gun and missile sites, the bel] 
will ring and the message ENTER MILESTONES will be highlighted in the error 
section. Enter milestones using steps 3.b-h with the following exceptions: 
a. Pressing "A": This signifies that an aiming line is desired. 
A dashed line to the target will appear to assist in lining up for the 


bomb release leg. 
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b. Pressing "B": This signifies the bomb release milestone. 

c. Pressing "R": This resets the problem. The screen will go 
blank and you will be asked the milestone at which to reset the flight 
path. This destroys the map and it must be redrawn. This can cause a 
long wait at the slow terminals. 

d. Pressing "S": This stops the program. The point is plotted, 
but not checked for errors. 

The special keys must be pressed when the point is verified, 
not when it is first selected. 

e. The velocity must be entered for each milestone. The hori- 
zontal axis of the altimeter is velocity. The tic marks are at 50 
meter/sec intervals from 50 to 300 meter/sec. If error checking is used, 
the minimum speed is 90 meter/sec. Velocity is limited to 260 meter/sec 
before, and 310 meter/sec after bomb release. Any time a game rule 
or flight path error is detected, the error will be marked by underlining 
and ringing the bell. Whenever an error occurs, the X/Y/Z and velocity 
values are rejected. The Bomb, Reset, and Stop commands take priority 
over errors while the Aim is executed only at legal milestones. This 
means that the operator can always stop or reset the program. 

f. Repeat steps l-d until all milestones are entered. See 
Section E (Output Selection) to finish the program. 

Meee GAECUTING KBSPIP 
{. Enter: KBPIP 
Tne terminal will display the file definitions for KBPIP. 


This is followed by a delay as the program loads. When loading is 
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complete, the message “EXECUTION BEGINS" will appear, followed by the 
screen clearing. 
2. Initialization 

The program will request data necessary to initialize the system. 
The following message will appear: 

GUNS: O = DISK FILE; 1 = TERMINAL READ; 2 = PRESET 

a. FILE: This reads the file created on a previous run using 
option 1. Do not select this option if you have never entered gun and 
missile locations at the terminal. 

b. TERMINAL: With this option you enter your own locations. 
The gun and missile locations will be saved for later use. 

c. PRESET: GRPIP has preset gun and missile sites if you 
want to use them. 

The next message you will see will be: 

MILESTONE INPUT: O = DISK FILE; 1 = TERMINAL 

a. DISK: This reads a previously created file. Do not use this 
option if you have never run GRPIP, KBPIP, or IBMPIP. 

b. TERMINAL: This allows you to create a new flight path. 

When this is done, the following message will be displayed: 

ERROR CHECKING: O = NO CHECKING; 1 = CHECK FOR ERRORS 

a. NO CHECKING: With this option game and flight rule errors 
will be ignored. 

b. CHECK FOR ERRORS: With this option, errors will result in 
the operator being notified of the cause. When the terminal input option 


1S in effect, the milestone data will be ignored and new data requested. 
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If the disk input option is in effect, the user will see the following 
prompt if an error occurs during execution: 

DO YOU WISH TO FIX THE ERROR: O = NO, USE THE POINT 1 = YES 

a. 0: The program will ignore the error and use the data. 

b. 1: The program will request new data for the current mile- 
stone only. Subsequent data will be obtained from the disk. Note that 
the correction may cause errors in subsequent milestones. 

The next message to appear will be: 

FLIGHT AND GAME PARAMETERS: O = DEFAULT; 1 = USER INPUT 

a. DEFAULT: This uses preset game and flight parameters for 
error checking. 

b. USER INPUT: This allows the user to reset error parameters 
to reflect different game and flight rules. See PARAMETER CHANGING for 
further information. 

3. Gun and Missile Entry 

If preset (option 0) or file (option 2) locations are used, the 
gun and missile sites will be automatically entered. User input of the 
gun sites is as follows: 

a. The message ENTER GUN LOCATIONS will appear, followed by: 

b. ENTER X AND Y COORDINATES. 

c. Enter the desired values. 

d. The message ENTER ALTITUDE will appear. 

e. Enter the desired altitude. 

f. Repeat b-e five times. The guns are input in the following 


order: 
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(1) Two Type 1 mode 1i-- 1,000m engagement radius 
(2) Two Type 2 mode 1--1,400m engagement radius 
(3) One Type 3 mode 4--2,500m engagement radius 
(4) One Type 3 mode 3--2,500m engagement radius 
NOTE: The type 3 guns may not be within 3,000 meters of the target. If 
you attempt this, the message TOO CLOSE TO TGT will be displayed. The 
point will be rejected and you will have to enter it again. 
NOTE: Entering a weapon (gun or missile) altitude greater than 1,000 
meters will abort the program and destroy a previously created GUN LOC file. 
When all six gun sites are correctly entered, the message ENTER 
MISSILE LOCATION will be displayed. Repeat steps b-e. 
NOTE: The X coordinate must be greater than 6,000 meters or the error 
message X COORDINATE < 6,000 will be presented. 
4. Milestone Entry 
When you have finished entering the gun and missile sites, the 
message ENTER MILESTONES will be displayed. Enter milestones using the 
following steps: 
a. The message ENTER X AND Y COORDINATES will be displayed. 
b. Enter the desired coordinates. 
c. The message ENTER ALT., VEL., AND COMMAND: O = NONE; 
1 = AIM; 2 = BOMB; 3 = RESET; 4 = STOP will then appear. 
d. Enter the desired velocity and command. The results of 
commands are: 
(0) NONE: no special action occurs. 
(1) AIM: This will provide the distance to the target and 


the X and Y components for 100 meters along the aiming line. 
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(2) BOMB: The bomb release rules are checked. 

(3) RESET: The program will ask you at what point you want 
to reset the program. If selected point is before the bomb release 
point, the release checks will be cancelled. 

(4) STOP: The final milestone is accepted and milestone 
input terminates. If this command is given on the first milestone, the 
program will stop immediately, otherwise the new milestone file is 
written and output options are requested before stopping. See Section E. 

Any time a game rule error is detected, the error will be dis- 
played. Whenever an error occurs, the X/Y/Z/VEL values are rejected. The 
Bomb, Reset, and Stop commands take priority over an error, while the Aim 
command will be accepted only at legal milestones. This means the 
operator can always get out by executing a Stop. 

D. EXECUTING IBMPIP (TEKTRONIX Terminals Only) 
fee enter:  IBMPIP 

The following message will appear: EXECUTION BEGINS. 

This is followed by a delay as the program loads. When loading 
is complete, the message "EXECUTION BEGINS" will appear, followed by the 
screen flashing twice. 

2. Initialization 

The program will request data necessary to initialize the system. 
The following message will appear: 

GUNS: O = DISK FILE; 1 = TERMINAL READ; 2 = PRESET 

a. FILE: This reads the file created on a previous run using 
option 1. Do not select this option if you have never entered gun and 


missile locations at the terminal. 
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b. TERMINAL: With this option you enter your own locations. 
The gun and missile locations will be saved for later use. 

c. PRESET: GRPIP has preset gun and missile sites if you 
want to use them. 

The next message you will see will be: 

MILESTONE INPUT: O = DISK FILE; 1 = TERMINAL 

a. DISK: This reads a previously created file. Do not use this 
option if you have never run GRPIP, KBPIP, or IBMPIP. 

b. TERMINAL: This allows you to create a new flight path. 

When this is done, the following message will be displayed: 

ERROR CHECKING: O = NO CHECKING; 1 = CHECK FOR ERRORS 

a. NO CHECKING: With this option game and flight rule errors 
will be ignored. 

b. CHECK FOR ERRORS: With this option, errors will result in 
the operator being notified of the cause. When the terminal input option 
is in effect, the milestone data will be ignored and new data requested. 
If the disk input option is in effect, the user will see the following 
prompt if an error occurs during execution: 

BOM OURWISH TOSFIX THE ERROR: QO = NO, USE THE POINT 1 = YES 

a. QO: The program will ignore the error and use the data. 

b. 1: The program will request new data for the current mile- 
Stone only. Subsequent data will be obtained from the disk. Note that 
the correction may cause errors in subsequent milestones. 

The next message to appear will be: 


FLIGHT AND GAME PARAMETERS: O = DEFAULT; 1 = USER INPUT 
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a. DEFAULT: This uses preset game and flight parameters for 
error checking. 

b. USER INPUT: This allows the user to reset error parameters 
to reflect different game and flight rules. See PARAMETER CHANGING for 
further information. 

3. Gun and Missile Entry 

Following initialization, the screen will go blank and the 
following message will appear: 

VILLAGE: 0 = NOT DRAWN; 1 = VILLAGE DRAWN 

a. NOT DRAWN: This option results in only the gun, SAM, and 
target locations being drawn. This saves a great deal of time, 
particularly on 300 BAUD terminals. 

b. VILLAGE DRAWN: This option draws the village, road, and 
river. When inputting the gun and SAM sites, this option should be 
chosen to meet the game requirements. Drawing the full map takes about a 
minute at 1,200 BAUD terminals and about 5 minutes at the slower ones. 

If the preset (option 0) or file (option 2) locations are 
used for the gun and missile sites, they will be drawn immediately. The 
gun sites are represented by a "+" surrounded by a dotted ring at the 
engagement radius. The SAM site is a "+" with a small circle around it. 
The target is a "+" with two small circles around it. User input of the 
gun sites are as follows: 

a. The message ENTER GUN COORDINATES will be displayed. Press 
the "CLEAR" key on the upper left part of the keyboard. 


b. The map border will flash and a cursor will appear. 
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c. Position the cursor with the joystick on the right of the 
terminal. 
d. Press any light grey key. The cursor will disappear, a point 
will appear, and the cursor will re-appear. 
e. Press any PF key to accept the X and Y values, press a grey 
key to reject it. Repeat d. and e. if the point is rejected. 
f. The altimeter border will flash. 
g. Position the cursor in the altimeter and enter the point as 
above. Note that the altimeter is marked in 100's of meters. 
h. Repeat steps b-h five times. The guns are input in the 
following order: 
(1) Two Type 1 mode 1--1,000m engagement radius 
(2) Two Type 2 mode 1--1,400m engagement radius 
(3) One Type 3 mode 4--2,500m engagement radius 
(4) One Type 3 mode 3--2,500m engagement radius 
NOTE: The type 3 guns may not be within 3,000 meters of the target. If 
you attempt this, the message TOO CLOSE TO IGT will be underlined and a 
bell will ring several times. The point will be rejected and you will 
have to enter it again. 
NOTE: Entering a weapon (gun or missile) altitude greater than 1,000 
meters will abort the program and destroy a previously created GUN LOC file. 
When all six gun sites are correctly entered, the message ENTER 
MISSILE LOCATION will appear. Press the "CLEAR" key and repeat steps 
b-g. 
NOTE: The X coordinate must be greater than 6,000 meters or the error 


message X COORDINATE < 6,000 will be presented. 
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4. Milestone Entry 

When you have finished entering the gun and missile sites, the 
bell will ring and the message ENTER MILESTONES will appear on the IBM 
terminal. Press "CLEAR." Enter milestones using steps 3.b-h with the 
following exceptions: 

a. Pressing "PF1": This signifies that an aiming line is 
desired. A dashed line to the target will appear to assist in lining up 
for the bomb release leg. 

b. Pressing "PF2": This signifies the bomb release milestone. 

c. Pressing "PF3": This resets the problem. The screen will go 
blank and you will be asked the milestone at which to reset the flight 
path. This destroys the map and it must be redrawn. This can cause a 
long wait at the slow terminals. 

d. Pressing "PF4":; This stops the program. The point is plotted, 
but not checked for errors. 

The special keys must be pressed after the dot has appeared. 
Press PF keys 5-12 to accept the pooint without any special option 
selected. 

e. The velocity must be entered for each milestone. The hori- 
zontal axis of the altimeter is velocity. The tic marks are at 50 
meter/sec intervals from 50 to 300 meter/sec. If error checking is used, 
the minimum speed is 90 meter/sec. Velocity is limited to 260 meter/sec 
before, and 310 meter/sec after bomb release. Any time a game rule 
or flight path error is detected, the error will be marked by a thin 
rectangle flashing on the right side of the graphics screen. The error 


message will appear on the IBM screen. Press "CLEAR" and resume entering 
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milestones. Whenever an error occurs, the X/Y/Z and velocity values are 
rejected. The Bomb, Reset, and Stop commands take priority over errors 
while the Aim is executed only at legal milestones. This means that the 
operator can always stop or reset the program. 

E. OUTPUT SELECTION (ALL VERSIONS) 

When new milestones or weapons have been entered, the program writes 
them to disk file PTS LOC for later use. If a new flight path was 
created, the program then displays: 

ARE YOU FINISHED WITH THIS FLIGHT PATH: O = NO; 1 = YES 

a. NO: This marks the data with an end of data command. When read 
by GRPIP, KBPIP, or IBMPIP, no further points can be added. 

b. YES: This marks the file with a continuation command. When 
GRPIP, IBMPIP, or KBPIP finish reading the file on a later run, they will 
ask the operator to continue entering milestones. 

The computer then prints: 

QUTPUM FILE: 0 = NOr OWNPUT; 1 = POO] FILE ONLY; 

2 =SNCE FICEMONEY; 3 = POO] & MICE FILES 
The POO] file is located on your disk as POO1l DATA and the MICE file 
is called MICE DATA. 
F. HARD COPY 

There are three methods of obtaining a hard copy of the flight 
Dath and weapon sites. The first uses the TEKTRONIX plotter, the second 
uses the VERSATEC plotter, and the third uses the TEKTRONIX hard copy 
device. 

To use the TEKTRONIX plotter, it is necessary to connect the TEKTRONIX 


terminal to the plotter and then to the modem. Set the corners and then 
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leave the plotter on LOAD. Before the final milestone is entered, press 
"R" for the reset option. After the request for starting point is 

Be nted, take the plotter out of LOAD. The plotter will plot the mile- 
Stones, weapon sites, and, if requested, the village. Finish inputting 
the last milestone. The plotter will plot the final milestones. Before 
the output selection is started, set the plotter back to LOAD and finish 
running the program. 

To use the VERSATEC plotter, two methods are available. First, a map 
of the scenario only can be made. The other option is to get a complete 
plot of the scenario, milestones, and weapon sites. 

To get only the map, perform the following steps: 

a. ENTER: COPY VERSA PLOT B = = A, 

b. XEDIT VERSA PLOT and put your JOB card in as the first entry. 

eee EILE VERSA PLOT. 

d. ENTER: SUBMIT VERSA PLOT. 

To get a complete drawing, perform the following: 

Spee ENTER: COPY HDR DATA B PTS LOC A PLOT MAP A. 

b. XEDIT PLOT MAP and put your JOB card in as the first entry and /* 

as the final one. 

eee LE PLOT MAP. 

d. ENTER: SUBMIT PLOT MAP. 

The VERSATEC maps can be picked up at the computer center printer 
room. 

The TEKTRONIX hard copy device is very simple to use. Turn it on 
and allow it to warm up, about 15 minutes. This warm-up can be done 


while you are running GRPIP or IBMPIP. When you want a copy, press the 
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button marked COPY. You will see a vertical line sweep across the 
terminal screen. Soon after this, the hard copy device will provide your 
copy. Several copies may be necessary to properly adjust the intensity. 
On the 622 (IBMPIP) terminal, this intensity can also be adjusted using 
the knob on the bottom right part of the terminal marked HARD COPY 
INTENSITY. 
G. CHANGING PARAMETERS 

When this option is selected, the following message will appear: 


SELECT PARAMETER TO BE CHANGED: 1 = NO MORE CHANGES 


2 = MAX LIFT COEFF: 3 = WING LOADING; 4 = STALL SPEED 

5 = MAX G FORCE; 6 = MIN ALT; 7= MAX ALT (< 2,200 MTR) 

8 = DISTANCE TO TARGET BEFORE POPUP ALLOWED 

9 = MAX APPROACH ALT; 10 = MAX T/W RATIO; 11 = DRAG COEFF. W/O LIFT 
12 = LIFT DRAG CONSTANT; 13 = MAX SPD WITH BOMB 

14 = MAX SPD W/O BOMB; 15 = TARGET COORDINATES 

16 READ PARAMETER FILE; 17 = LIST PARAMETERS 


Enter the desired value. If a number between 2 and 5 is selected, 
another prompt will appear. Enter the desired value. If 16 is chosen, 
disk file PAR SAV will be read; do not choose this option if you have 
never changed parameters. A 1/7 will list the current values of the 
parameters. To exit, select al. This will write the current parameter 


values to PAR SAV and return to the main program. 
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BILE: T3 FORTRAN A NAVAL POSTGRADUATE SCHOOL 


iauomorcCr ION ACCEPTS THE FLIGHT NILESTONES 


FTFAC=3. 28084 
DGFAC=57.29578 
CALL ERRM#K (15) 
REWIND 11 

300 MNUM=MNUM+1 


C 
C Peep MILESTONES FROM THE DISK 


C 
302 IF (EHR -NE, 0) GOTO 
FAD (11,6 25 URNOMY of (AVON) gz(NM) ,VEL (HOM) , LTR 


AAN 


IF (MNU M) Eo On 
IF (LIR .EQ. 1) IMP=1 
LTR2=LTR 
GOTO 308 


c 

C READ MILESTONES FROM THE TERMINAL 
a 

B05 CALL XYZIN 

X (MNOM) =X1 
EE =Y1 
: L(MN M) =v 1 

3 COMPUTE FLIGHT PARAMETERS AND CHECK FOR ERRORS OR USER COMMANDS 


308 IF (MNUOM.EQ.1 . AND. (LTR. 353° 63° OR. Liwme- 80. 983)) STOP 
IF (MNUM .~EQ. 1) GOTO 


IERR=0 
CALL VALSET(IERR) 
IF (((LTR.EQ. 82) .OR. (LTR2. EQ. 82)).AND x (EMD. NE.Q)) GOTO 350 
LE ( LTR EQ. 66) .OR. (LTR2. EQ. 68) MBR=MNUM 
IF((LTR .FO. 83) .OR. (LTR2. EO. 33)) GOTO 370 
IF (IFRR .FO0. 0) CALL ERRCHK (T RR) 
IF ((IERRSKER .EQ. 0) -AND. (LERR .NE. 12)) GOTO 310 
CMEL ERRBK (TERR) 
IF (MP .NB. 0) GO TO 305 

ALL ERA K ( 0) 

READ (5 zt 

TF ( COR, EO. 1) GO TO 305 


c 
¢ MILESTONE ACCEPTED, RESTART THE SEQUENCE 
310 CALL PTHELT 
IP (LTR -EO. 65 .OR. LTR2 .EQ. 65) CALL AIMPT(MNUM) 
GOTO 300 
THIS SECTION RESETS THE DATA 
350 CALL SCENE (1, ICT) 
RFWIND 19 
IF(MBR .GT. ICT) MBR=0 
COMPLETE RESTART 
IF (or .GT. 1) GOTO 352 
MNOM=0 
GOTO 260 
DRAW RETAINED MILESTONES 
352 IF ((ICT .GE. MNUM) .AND. (MNUM .GE. 3)) ICT=MNUM-1 
DO 355 MNUM=2,ICT 
355 CALL PTHPLT 


MNOM=MNOM-1 
GOTO 260 


AAD ANIM 


AAD 
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THIS SECTION TERMINATES THE PROGRAM 


370 BLANK=0. 
SAlLlL PLarLt 
LAST=IMP 
CALL ELFIN(LAST) 


. 
c COMPUTE FLIGHT PARAMETERS FOR FINAL LEG 
a 


QIAN 


DX=X(MNUM) - X (MNUM-1 
DY=¥ (MNUM)- Y?MNUM-1 
DZ=Z(MNUM) - Z(MNUM-1 
RA (i UM) =0. 
CA (MNUM) =ATAN2 (DZ,SQRT (DX%*2 + DY=%2)) 
TP ((DX 2EQ. 0.) OR. {DY . £0. 0.)) GOTO 371 
BDG(MNUM) =ATAN2 (DY, DX) 
GOTO 372 
Mae tf ({(DX .EO. 0.) .AND. (DY .GT. 33) HDG (MNUM) =1.57079 
ioe ((DY 50. 0.) <sAND. (DX HDG (MNUM) =3.14159 
Meer (DY EO. 0.) AND. (DX rene HDG (UNG M) <0 - 
372 XDOT(MNUM) =VEL (MNUM) “COS (HDG MUMS 93 A (HN sy) 
VDOT CMNUM) =V EL (NNOM) 2STY (HDG (MNUM)}) ® COSICA CMNUM 
: ZDOT(MNOM) =VEL (MNOM) “SIN (CA (MNUM) 
C CREATES NEW " PTS LOC " IF NEW WEAPON OR MILESTONE COORDINATES 
¢ HAVE BEEN INPUT 
IP ((TMB 5EQ. 0) .AND.(IGUN .NE. 1))GOTO 377 
REWIND 11 
IGUN=1 
WRITE (11,625) BLANK, BLANK, BLANK,BLANK, BLANK 
DO 375 I=1,MNUM 
LTR=0 
TF (I .FQ. MBR) LTR=66 
Tr (1-29: HNOM) LTR=LAS 
375 WRITE (11,625) X{(I),¥ (I), 2 (I) ,VEL(L) ,LIR 
WRITE (11,6 26 
apy ieee 11,627) VEL(1),4BR, BLANK, BLAN K, IGUN, IGUN, BLANK, BLANK, 1IGUN, 
IF (IGUN .EQ. 0) GOTO 377 
DO 376 L=1,6 
376 WRITE(11,625) | XGON (1) ZSUN(T) , ZGUN (I) 
‘ WRITE(11,625) XSAM,YSAM,2ZSA 
C CONVERT ANGLES FROM RADIANS T0 DEGREES 
377 DO 380 I=1,4NUM 
Ca(T) =CA(T) #DGFAC 
RA(I)=RA PAC 
3 80 HDG (1) = G(T) SDE FAC 
CALL PRESET 
500 FORMAT 217) 
501 FORMAT (3F10. 2) 
625 FORMAT (GF10. 0,13) 
626 FORMAT ('99999, ty 
627 FORMAT (F10-0,12,811,F10. 0) 


E 
Mumm e CCC CCCCCC CCCCCCCCCCCCCCCCCC CCCCCE CCCCCCCCCCCCCCCCCCCCT 
Regge coe Ce ECE CeCe ceeerc ccec eececceccececcee’ 


Mumm e@eeccc CCCCcc Cc CCccceccccccccecccceec cece cceceeccceecccece 
ec oc ~~ ee Ceccee cccecececeeceeccececte 


RO VALSET 
COMMON /B AR/x (200) 1 + 300} 2.00) , HDG 200) CA (2 290) RA (200) , VEL 200) 
CCMMON/PAR1/XDOT 420 y,Y 624500 VZDOT (200) , MNUM, MBR 
COMMON /PAR2/T (20 
COMMON/PAR3/TMD, ACLIFT,CLMAX,WL,TMAX ,CDO,CDK, VMAX1, VMAX2 
DIMENSION AXD (2600), AYD (200) ,AZD(20 00) “XDD (300) . YDD (300 0) ,Z2DD (200) 
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AAD 


AMANO 


ADA 


AMA 


AAD 


AAANQ 


10 


11 


20 


ES 


30 


DX=X (MNUM)- X(MNUM-1 

DY=Y¥ (MNUM)— Y(MNUM-1 

DZ=Z(MNUM) - Z(MNUM-1 

Tn (ee NE. Oe} .OR. (DY .NE. 0.)) GOTO 5 
PRR=12 
RETURN 

VAVGL=VAVG 

DISTL=DIST 

LIMIT THE 


DIST=SQRT(DXB#2 + DYBG2 + DZB* 2) 

IF EL(MNUM) .GT. VMAX ANB: (HBR neon ae VEL ot CEMA 
10 (t VEL(MNOM) .GT. VMAX2 MBR .GE. NUM) =VMAX2 
VAVG= (VEL (HN UM +VEL(MNUM-1)) /2. 

DT=DIST/V 


T (MNOM) £4 (MNUM—1) 4DT 
COMPUTE AVERAGE VELOCITY COMPONENTS 
AXD(MNUM) =VAVG@DX/DIST 
AYD(MNOM)=VAVG®DY/DIST 
AZD(MNUM) =VAVGSDZ/DIST 
IF (MNUM .GE. 3) GOTO 20 
COMPUTE THE PARAMETERS FOR THE INITIAL LEG OF THE FLIGHT PATH 
CA(1) =ATAN2 (DZ, SQRT (DX"*2 + + apres 


((CX . A Oz 28 GOTO 10 
HDG (1) <ATA 2 (DY, DX) 


4 
ry 


ly eee. O5) «AND. (DY "2GT. 0. HDG(1) =1.57079 
say DX ~-EQ. 0.) ~AND.~ (DY .LT. 0. HDG(1) =-1.57079 
1g CY "50. Ne SNe (Dk » Ll. 0. HDG{1) =3.14159 
Rat) oh ° eAND. (DX .GT. QO. HDG (1) =0. 

{DOT 1 y2y aL =DX/DIST 

noo T =VEL DY 722s Tt 

aes a Wepz bist 


DELT= (7 (MNUM) -T(MNOM- 2)) /2- 
COMPUTE THE ACCELERATION COMPONENTS 
ra feiag= 1 fe (oa) -Ae (ug e= 1) 7 Bera 


Pye NG. 1 AYD (MNUM) -AYD (MNUM-1)) /DELT 
ZDD(MNUM-1 AZD (MNUM) -AZD (MNUM-1)) /DELT 


WEIGRT AVERAGE OF THE VELOCITY COMPONENTS 
HDAVG= RD WHNG A) YU AVQOEED 
TDX=(AXD VAVG-AXD(MNUM-1) /VAYGL) =HDAVG+A XD (MNUM-1) /VA 
TDY=(AYD (MNOM TU RVG-AYD MNUM-1) /VAVGL) =HDAVG+AYD (MNUM-1) /VAV 
TDZ=(AZD (MNUM) /VAVG-AZD (MNUM-1) /VAVGL) “HDAVG+AZD (MNUM-1) /VAYV 


Mane THE WEIGHTED VALUES A UNIT VECTOR AND COMPOTE THE MILESTO 
MecOCITY COMPONENTS 


Eas (unte ramet tears + Be atrA 


< 
= GQigQgm 
ls RE aes sad cre 


(ABS (UNIT) .GE. 0.01) GO TO 
IFRR=12 
RETURN 
TDX=TDX/UNIT 
TDY=TOY/UNIT 
TDZ=TDZ/UNIT 
XDOT (MNOUM-1) =VEL (MNUM-1) *TDX 
YDOT(MNUM-1) =VEL (MNO M-1) 2TDY 
ZDOT(MNUM- 1) =VEL (MNOM- 1) *TDZ 
TF (SORT (TD ™TDX+TDYSTDY) .GE. 0.01) GO TO 30 
cA (i UM-1) =1. 5533 
GOTO 33 
CA (MNOM- 1) =A TAN2 (TDZ,SORT (TDXf TDX4TD Y"TDY) ) 
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33 PEC (t - FQ. 23} - OR. \TDY e-EQ. 0.) ) GOTO 40 
sae =ATAN2Z(TDY,TDX 
40 ey ph SOOemOe) seks Cn Dy* «GT. 0. HDG (MNUM-1) =1.5706079 
IF ii PeOsUe) “ashton y . LT. 0. HDG (MNOM-1) =-1.57079 
IF a TOs s) «htiba seus «Gl. QO. HDG (MNUM-1) =0. 
. 
. COMPONEN OF ACCELERATION EIN THE AIRCRAFT? COORDINATE SYSTEM 
c 


4S CASIN=SIN (aug H 3 
S VNU Bo 
HDSIN=SIN aay MNUM-1 
HDCOS=COS MNO M-1 
A17=XDD(M uM fawae 14) CACOS 
A21=-X (HNO B= | * HDSIN 
A31=-XDD (MNUM- 1) *HDCOS#CASIN 
A12=YD pug 1): HDSIN®CACOS 
A22=Y¥DD (MNUM-1)*HDCOS 
A32=-YDD (MNUM- 1) *HDSIN®CASIN 
AI3= (2 (MNU M- 1) +GEE)2CASIN 
A33=(ZDD (MNU M-1)+GEE) *CACOS 
C COMPUTE ACCELERATION PARALLEL AND PERPENDICULAR TO FLIGHT PATH 


TMD= AT1+A12+48 13) /GE jae 
ACLIFT= SQRT ( {42 12222) 88 2¢ (231+ +A32 penok, 2) 1.7682 
ie (as (A He ae Bho 4 OT RG Onto 


50 MNUM=-1) =ATAN2((A21+A22 A3 1+#A32+ A33) 
22 f ‘KO 41) ({ do ( ) 


EN 
Mumeet@a cece CCCCC CC CCCCCCCCCCCCCCCCCCCCcc Ccceccccceeccecececccee 
Meme 2 CCCCCECEC CC CCCCCCCCCCCCCCCC CCC CCC CCcccccccaccccccccccicc 
a SUBROUTINE ERRMK C 
Mummers eeCcCCccCcc cc ceccccecccc cccccc ceccce cccceccecececceccecctce 
eecececceccc CC CCC CC CCECE CCC CCCECC CE CCC CE CC eC CECE CC CCE CCCCCCCe 
SUBROUTINE ERRMK (TER 

SOMRON EN {BAUS , aK RY (20 

COMMON/MN/IBAUN,HINY, HAKY, AT x , MAXX 

IF (IERR .GT. GOTO 


J=2 

IF TERR b= 1B-6), 9 
TF (IEER .GT.17 ) j= 3 
MKXSMK ERK (I) 420 

DETERMINE NUMBER OF TIMES TO FLASH THE LINE 
K=5+ 30®IBAUD 


UNDERLINE THE PROMPT 


ANA ANN 


ERX (J) , MKERY (IERR) ) 
x MRERY (7 RR 
NRERX (J) KERY (IERR) ) 
80 ) CALL BELL 


85 
ERR ~ 15) 
3 


doin as ane, ,MKY) 
RWABS (MK X+30, MKY) 


naa 


G 

86 c 
END 

Mee CCC CCC C CCCCCCCCCCCcCcCccccccccccccccc Ccccccccccccccccccccccce 

Meme © CCCCC CCCCCc CCCCCccccccccccccccceccce cccecceccccccccccccccce 


C SUBROUTINE PTHPLT & 
Mumps OCW C CCCCC CCCCCCCCCccccccccc cccccc cccceccececccecccccec¢ccce 


Se: 


la Mee Ue Ha ae Dane aes Nie Da ee De ee ae De Bl De ee ae ee oe a De ee fe Dee ee Dee De a Da ae Dc ee ae ee oa a ae Da Lae Doe De ae ae oe ee Je ae De Lae ae ae ae a De 
WI WG GW WW GW) Ga WW Wo Wd a a Gd Wd Gd dG od LG WY Gd Go Wd Gd Ga. Gs Gs Go WY Wd Ga Gs dd Gs WG Gs Wo WG Wd Gs WL Go Gs Go 
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eee eee CC CEE ECE CE COC E COECE CCE CE CE CEC EEC EEE EE 
SUBROUTINE P 


COMNON /BAR/X (200) 5 (200) 42 | (200 200% (200) ,ANGR, uBR 


COMMON/ PAR 1/XDOT 200) ,ZD0 
COMMON/MN/IB AUD, MINY, MAXY, MINX, M 


IDENTIFY THE MAP, DRAW AND LABEL THE FLIGHT LEG 


CALL WIN (MINX, MAXX, 18000.,72000.,0) 

CALL MOVEA (X (MNUM—-1) ,Y (MNUM-1) ) 

L RuaeDE. MNOM),Y(M a 

L ANMCD 
MNUM 
(MNUM 
MNOM 


(200) ,MNOM, 4B 


AMO 


-GT.99) WRITE 4909) MNUM 
“Gi T. 9) sAND. hab. 100) ) WRITE(6,901) MNUM 
-LE. 9) WRI E (6, 902) MN 


SAVE THE PCINT IN ‘TEMP DATA‘ 


WRITE te £96. bso) oY (MNOM) ,Z (MNUM) , VEL (MNUM) ,MBR 
FORMA 


HHHAM 


A 
A 
F 
ig 
g 


NAAN 


FORMAT 
FORMAT 
FORMAT 
eo 
Gumremec ©CCCCl CE CCCCCCCCCCCCCCCCCCCCTS CECC CCCCCCCCCCCCCCCCOCC 
RR og Gee ee CC CCCComeeer ecececececeeccceces 


LOC 
ececcccccececeeceecccccecececccececececcec)e cecececececceccccccccce 
CCCCCCECCCECCCLCCE CC CCCCE CCC EC CCC CCE Ce cee CE CC CECC ECC CCCeCeC CCS CK 
SUBROUTINE GUNLOC (GX,GY RAD) 
COMMON/MN/IB AUD, MINY,-MAKY, MINX ,MAXX, MIN1, MAX1 


miweery THE MAP AND PLACE A *'+* AT THE LOCATION 


CALL WIN (MINX, MAXX, 18000.,12000.,0) 
CALL MOV Suge ay 


'¢t 72 
t4toT 


WOW d 


OOCOnd 
NaOu 


AAMN 


CALL DRAWA(GX+75.j 
CALL MOVEA(GX ienee” 
CALL DRAWA(GX,GY-75. 


DETERMINE NUMBER OF STEPS TO BE USED 


ISTEP=3 ‘ 
IF (RAD.IT. 1600.) ISTEP=6 


DRAW A CIRCLE AROUND THE SITE 
DO 10 1=3,180 ISTEP 
=fr0 , 634907 


ANGLE= 
aye tia +GX 


2Q0O 


MQANQ 


DY=RAL=SIN (ANGLE) +GY 
CALL MOVEA Dx 10. De 
10 nen CRAWA(DX-10.,DY 


ROT 
EN 


ND 
Murer eee C CCCCC CCECCCCCEECCC CCCCCC CECCCC CCCCCCCCCCCCCCCCCCCCCCC 
RR Rg eee sce ce CCC CCE Chee ee cecececceecececce 


SPO C 

a THOS RETURNS AN X-Y PAIR AND TWO COMMAND VALUES LI&L2 C 
= THE RCUTINE CREATES A DOT AT POINT X,Y AND ASKS FOR Cc 
PERATIOR VERIFICATION (ASCII'N=7 8 C 


C 0 
Mummers ee eee CC CEGe CC CCCCCCCCCCCCCCCCCCCCCC Coeccccececcccecccececce 
SUBROUTINE SPOT(X,Y,L1,L2) 


READ THE CURSOR 
100 CALL VCURSR(L1,X,Y) 
MARK THE SEOT 
CALL POINTA(X, Y) 


a 
o 
a 
C 
. 


eZ 


PRISED SDI AHA NR BHAA AA AA AHAB AAA AAA RAR AAD AR AA AAA AYA AAA AAA ANA HH HNN TH aH 
bd Gold GU Gd Quy Gy OY Gy GY GW Od 9 GG) Gh Gd Gd Ga Gd GG Go Go Gd) Ga GG GG 0 Gd Gd Gd Gd Gd GG) Gd) GG) dd Gd Gd Gn dG Gd GG Gd Ld dL GL 
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Cc 
: VERIFY THE POINT 
CALL VCURSR(L2,A,B2) 
Fe : 
C DOFS THE USER ACCEPT THE SPOT? \ 
C 
IF {1.2 ~EQe 78) .OR. (L2 -EQ. 110)) GOTO 100 
fio 
Summee CGC CC CCCC CC CCCCCCCCCCCEECCC CCCCCc CCceccececccccecceecice 
CCCCCC CEC CECE E CECE CECE ECE ECE CE CECE CE CCE CEE CECE CCC ECCceecccce CC 
C 
HIS ROUTINE DRAWS THE ATTACK MAP 
Meee cecccccccccccceccecccccececcecccce cccccce cece cccececccceccecesce 
SUBROUTINE SCENE (IRO,ICT) 
COMMON /ERR/MKERX (3) , HRERY (20) 
COMMON /P AR/K (200) 4200) ¢ (2 0) HDG (200) »CA( 200) RA (200) , VEL(200) 
COMMON/MN/TB AUD, MIN MAXY, MINX MAXX, MINI. MAX1, MAP 
COMMON /TAR/TARGX, TARGY 
C DRAW THE X,Y MAP 
C THE ROUTINE READS X,Y PAIRS FROM FILE 09. -2.0,0 INDICATES 
a END OF FILE,-0.5,0 {INDICATES A MOVE, ALL OTHER VALUES ARE PO- 
C SITIVE AND RESULT IN A DRAW TO THAT POINT. 
C ERASE THE SCREEN 
! CALL NEWEAG 
: READ USER CPTIONS 
WRITE (6 , 635 
READ oF) MR 
TP (t 9 ~FQO. 0) GOTO 195 
RI BAe 630 
: READ (5,%) ICT 
¢ CLEAR THE SCREEN 
CALL NEWEAG 
195 CALL WIN (MINX, MAXX, 18000.,12000., 1) 
IF (MAP .EO. 5) GOTO 210 
REWIND 9 
EAD (3301) TX, TY 
200 READ (9,501) TX, TY 
CALL MGVEA (TX, Y) 
201 READ (9-301) TX, TY 
IF | X-Lt.-1) GOTO 210 
IF (TX.LT. 0) GOTO 200 
CALL DRAWA (TX, TY) 
: GOTO 201 
: MARK THE TARGET 
P40 CALL GUNIOC FARCE ,TARGY, 150.) 
. CALL GUNLOC(TARGX,TARGY, 300. 
c DRAW TIC MARKS EVERY 2000 MTRS 
DO 215 I=1,8 
IW=22T 
CALL MOVEA(I%2000., 1000.) 
CALL LCRAWA(I®2000.,0.) 
CALL ANMOD 
WRITE (6,502) IW 
IF (I .GE. 6) GOTO 215 
CALL HO VEA(1000. T*™2000.) 
CALL DRAWA(0.,2000."1) 
CALL MOVREL (-30,0) 
CALI ANMODE 
WRITE(6,502) IW 
215 CONTINUE 
CALL MOVEA(8000. ,0.) 
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18 WRITE (6,618) 
GOTO 499 
19 WRITE (6,619) 
GOTO 499 

20 WRI = (6,620) - 

499 CONTINU 
RETURN 
501 FORMAT 2F 10; 2) 
502 FORMAT('+! [2 
503 FORMar(' X & Y AXIS MARKS IN 1000"S* 
504 FORMAT(' 0 DEG. HEADING ALONG X AXIS") 
505 FORMAT(* ALT. IN 100%S") 
506 FORMAT(' VEL IN SOS") 
507 FORMAT(' ',12 
601 FORMAT(* MAX ACCEL EXCEEDED") 
602 FORMAT(' MAX G EXCEEDED!) 
603 FORMAT(* APPRCH TCO LOW 
604 FORMAT(' ALT TOO HIGH") 
605 FPORMAT(" STALL‘) 
606 FORMAT(' POP-UP TOO LOW’) 
607 FORMAT(' BMB DROP LOW’) 
608 FORMAT(* BMB DROP HI') 
609 FORMAT(' TOO FAR FM TGT* 
610 FORMAT(' HDG>S DEG TO ry 
611 FORMAT (' FINAL RUN<2.33 SEC! 
612 FORMAT(' NO HORIZONTAL MOTION’) 
613 FORMAT(* TOO CLOSE TO TGT? 
614 FORMAT(' ENTER MISSTLE LOCATION") 
615 FORMAT(' ENTER MILESTONES! 
616 FORMAT (' ENTER GUN COORDINATES') 
617 FORMAT(' MAX LIFT EXCEEDED t) 
618 FORMAT(* MAX THRUST EXCEEDED! 
619 FORMAT(' X COORDINATE < 6000° 
620 FORMAT(' DO YOU WANT TO FIX THE ERROR:0=NO,USE THE POINT; 1=YES") 
630 FORMAT(" AT WHICH POINT DO YOU WANT TO RESTAR 
6 35 FORNAT (* VILLAGE: O=NOT DRAWN; 1= VILLAGE DRAWN) 
t 

eeceecccece ce cece ce cecece cece coc ece coeese cece cecece ce ceeececec ce 


epee © CCCCeeccecccceccceccceccececccececc ccececccececcecececcccecccece 
SUBROUTINE WIN 


9 

C : 

C THIS ROUTINE DEFINES A WINDOW EXTENDING FROM LX TO MX ON & 

ie THE HORIZCNTAL AXIS, AND FROM MINY TO MAXY ON THE VERTICAL C 

c AXIS. THE HORIZONTAL RANGE IS RX, THE VERTICAL RANGE IS RY C 

MummmrmeGeeccc CCCCe CC CCCCCCCccccceccccctcccc cccececccececccecccccce 
Boe GON CN WIN (LX,MX,RX,RY,JMP 


MMON/MN/IB AUD, MINY,MAXY 


C 
: DEFINE THE WINDOW 
CAIL TWINDO SINT, MARY) 
, CALL DWINDO( Ps mo) 
c FLASH THE DEFINED WINDOW 
IF (JMP .EQ. 0) GOTO 11 
rots h +e FRAUD 
10 I=1,ICT 
CALL MOVABS (LX, MINY 
CALL DRWABS (LX, MAXY 
CALL DRWABS (MX, MAXY 
CALL DRWABS (MX, MINY 
10 CALL DRWABS (LX, MI NY 


11 RETORN 
Memeeeccccccecccccecceccccececcececcececececcceec ceecccececececccecceece 
gece ececeeececeece CCCCCCECCE CCC CCCCE CCCCEE CECE CECE CC CC CCCCCCCES CC 
C SUBROUTINE XYZIN 
eceececceccecccece eeceececececccecce ceccee eceeccecececececeeccece 
Mme ee CCCCCCCCCCCCC CC CCCCCCCCCCCOCCCE CC CCCE CCCCCCCCCCCCCCCCCCCECECE 

SUBROUTINE XYZIN 

COMMON /LOC/X1,¥1,21,V1,LTR 

COMMON/MN/IB AUD, MINY. MAXY, SENK CAAXX, MINT, MAX1 
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Gy \iopigasspop mee 
c 
C IDENTIFY MAP AND GET X,Y AND THE FIRST COMMAND 
C 
7 CALL WIN (MINX, MAXX, 18000.,12000., 1) 
CALL SPOT(X1,%1,LTR, LDM) 
CALL BELL 
5 
€ IDENTIFY ALTIMETER AND GET VEL,ALT AND THE SECOND COMMAND 
C 
CALL WIN (MIN1, MAX1,350.,2200., 1) 
CALL SPOT(V1,21, LTR2,LD4) 
@ 
C CONVERT LOWER CASE TO UPPER CASE 
E 


Phe ork2 «Gl. AEG Se) is hs ae 
RETURN 


END 
eccceccececccecceccececeecececcececececceccecee ccccececececeeccecceccece 
CCCCCCCCCCCCE CCCCE CC CCCCC CCE CC CCCCCE CCCECE CECE CEC CCC ECCCCCCCCCCICC 
C SUBROUTINE BEGIN C 
ecceccecccceccceceeccccceccceccccececececec ceecececcceccececeecccce 
CCCCCCCCCCCE COCO CC CE CCC CCOCECECCCE CE CCCCCE CECE CCC CECE CCCCECEECEECE 

SUBROUTINE BEGIN 

COMMON /MN/IB AUD, MINY, MAXY, MINX ,MAXX, MINT, MAX1, MAD 

CCHMON /OPT/IGUN, IPNCH, TEXT, ISAM, IMP. K 


INITIALIZE THE GRAPHICS AND CLEAR SCRE EN 


CALL INIT 
CALL NEWFPAG 


READ OSER CPTIONS 
90 Sea ae eed: 


July {crs -GT. 73h) ERR parr) 


AAA 


AAA 


Lf § ON .NE. b= CALL CONCHG 
Soe mee PYLEe; I= TERY 
Esc=500 BAUD ; 
NTLES TONE 2NEUD >: -O=DISK 
ERROR CHECKING: OQ=NO CHEC! 
FLIGHT & GAME PARAMETERS: 


> 


24 


AHNNHO’ 
LSWWNOS 
ONOYANES 

| 

© 

= 2] 

i 

eed 

| 
= @ a @ @ 


@ 
3 COMPUTE T 


= 4 
A 
m4 
Ps 


HC $e $e $C GE $e $a ~ 

He eH Hee 
RES a at OS 
Te | ee | 
SIAR SEAN 
SAH SHH 
SAAS SA OM 


oe) 
ty 
Or 
rom 
8) 
= 


EN 
Mumma @CCCCC CCCCCC CCCCCCCCCCCCCCCccc ececcc ccec ceccee)ceccececcc\ece 
ecceeccccecc ce cece CC CCECECEC CC CEC CE CCCCCE CECE CCCCCS CCC CC CCCCCE CC 
C SUBROUTINE GUNCHK 
éccececececcec cece ce ceccecec CeCeccce cceecc ccecceceececceccecceece 
CECE CCEE CECE CCC CCE CCCCCCCC CC CCCCCCCC CECE CECE CeECCE CCC CE CCC CCS CC 
SUBROUTINE GUNCHK (X,Y, TERR) 
q COMMON /TAR/TARGZ, ARES 
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c COMPUTE DISTANCE TO TARGET 


pee eee LARGE) Ore Ns as TARGY) #*% 2) 

ne ee IST .LT. 3009.) IERR=1 
fmemreinecee Cc CClCe CCCCCCCCCe cece ccccceccecce cccccccccceccccecccceccecce 
ee eee ee EE eee EE CORNERS 
a c 
Guuereoeere ©CCCe CCCCCCECCe cc ec cc cccccccc CCcc CCCCCZ CCCCCCCCCCCCC 
Me tee ee CECE” ccececeececcececcecer re 


LOCK DATA 
COMMON /ERR/M KERX ( 3) MKERY 20 
COMMON /P AR/X (2.00) (500 0) 92 20 HDG (200 290), RA (200) , VEL (200) 
COMMON/PAR1/ Bor 20d) 4 67 (200), zZD0L (20 qs UM, MBR 
COMMON /BAR2/T (20 ye XGUN(7) ,YGUN(7) ,Z adit SAM, YSAM ZSAM, Baas 
COMMON/PAR3/TMD, ACLLFT,CLMAX,WL,TMAX -CD OR VERN I VARS 
COMMON /PARG/ APPMAX, HTMIN, HTMAX,SPDMIN, GM DOR MTN 
: COMMON /TAR/TARGX, TARG 
: ERROR MESSAGE COORDINATES 
DATA NKERX/640, 340,19/ 
DATA MKER 1/180, 140, 120,100,80, 60, 160, 140,120,100, 89,60, 160, 140, 
; * 120,100, 80,60, 180,407 ° 
c PREDETERMINED WEAPON EMPLACEMENT PARAMETERS 
DATA XGUN/14800., 16200., 13600. ,13400., 11300. ,15600.,12800./ 
DATA YGUN/99 00 ; 5200., 7300.8 060. ,9790.,10900. ,7509./ 
DATA ZGUN/4O ib. Oe 20 36° 799-42) 5 / 
DATA ton 712 060. 7sih 6060-77 ZSAM/5 0. / 
] DATA GR/1000., 1 56 e 4873000: 06 -°3500 - 4500. ,2500./ 
C SIMULATION PARAMETERS 
DATA CLMAX/1./,WL/100. /, SPDMIN /90./, GMAX/6./,HTMIN/60./ 
DATA HTMAX/2056. 7, APPMAX/457«/ -TMAX/0.4/,CD0/0-015/,CDK/0. 1/ 
DATA VMAXI/960.7, 9MAK2/340_/ POPMIN/6000./ 
4000. /, TARGT/7 220. / 


DATA TARGX/1 
END 


N 
Mumm ec” © CCCCCCC CCCCCCCCCCCCCC CC CCCCCE CCCC CCCCCCCCCCCCCCCCCCC 
RRR ee ee CCC ELE CCCECCCececececccececce 


a 
Sune © CO CCCEe CC CCCCECCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCSCC 
Mure teee © CCCCECCC CCCCCC CC CCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCcccccc 


SUBROUTINE PRESET 
COMMON /PAR/X (200) % (200) 97 200 HDS (200) , Ca (290) 68 , RA (200) , VEL (200) 
CCMMON/PARI/ DOT (20 ),YDOT 200 °ZDO bet 
COMMON /PARZ/T (20 ) XGON ). eYGUN(T) ,Z din, ),XSAM, TSAN. ZSAM 
CCMMON /OPT/IGUN, IPNCH, I Team TUD- RER 
DIMENSION x10 (200) ¥10(206) 

DIMENSION RCSTAB(1600) , TINK (10) 

, DIMENSION VAT1N2 (208), VAT3 (208), VATS (208) 

C VULNERABLE AREA TABLE VS TYPE 1 AND 2 WEAPONS 
DATA VAT 1N2/2% 4645 ,627.107, 2% .6568, 625. 551,28 .6968 ,6%5.574, 2%. 6 

18,627. 357,23 .6968,6%5. 574, 28 .6 568 ,6£ 5.551, 28.5968 ,6%5. 574, 2%. 656 
26% 7.357, 24.6 968 625 576, 2%,4645 6%. 7432, 24.6558, 6%2. 858, 2%. 4645 

33. 298, 2%. 6568 642.858, 28.4645, 6%. 7432, 28.6568, 622.858 26.4645 64 
4298, 2%. 6568, 6% 2. 858, 28.6568, 6% 5.551, 2%. 6 968,655. 574, 2% .6568,647. 
57, 28-696 8,685. 574 , 2% 6568, 685.551 92% «6968625. 574, 20.6568, 647. 35 
6 2.6968, 685. 574, 24.4645, 6472.10 7/ 

C VULNERABLE AREA TABLE VS TYPE 3 WEAPONS 
DATA VAT3/2% 12.5 SAREE 474 2% 9.853 6% 10.51,2%9. 639,6%11.15, 2412.6 
1614.78, 29. 639, 6011 215 9.85 3,62£10.51 2®9,639,6%11.15 2312.64 

214.78, 26.639, 611 aT. 394, 284.76 2,646. 240, 225. 342,687,432, 2 
3762,626 . 240 a ae Sa 62,626. 240 245. 342,687.432, 24.762 646. 
GO, 229.853, 6F 10.51,2%9. 639,6211.15 2% 12054 ,6214.78, 2%9, 639, 6211.1 


v ne =ON 
Arch ee ere nce Te ie PeE Pe Barc eT TIE Ge TIP RTY RT VB ler SCRE BC TS LCE PCI eC ee esas la ae Lee rele Melcher etre re 
Ud 


WI ty G9) Wy Wl La WD Ll Ls Gs Cu Wd GC LW Cod Co Wd Wa os Ls Wt 


~~ 0 LU ONC UT 
~— (ne 
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AAN 


AANA 


ANANAAN AAA AAD ANA AAANQ 


ANAAAN 


AAA AAANAAAN 


AMD 


5 2%9.853,6%10-51, 2%9.639,6%11.15, 2712 «64, 6%14.78, 229.639,6211. 15, 2% 
612.54, 6%13.47/ 
VULNERABLE AREA TABLE VS TYPE 5 WEAPONS 
DATA VAT5/8%55.37,8%43.22, 8847.10.87 62.53 8247.10,8%43. 22, 8247.10 
18%62.53, 2747.10, 895.761, 9827.45 ,8933 207, 8827.45, 845. 761,8227.45, 8% 
233.07, 8% 27.45, 885. 761, 8847. 10, 8%6 2. 5 3, 8£47. 10, 8E43. 22, SE47. 10, 862 


3.53, 8647.10, 8855. 37/ 
RADAR CROSS SECTION TABLE 


DATS RCSTABS 1921000. , 19109. ,19%10., 19%10.,19710.,197100., 
+19%1000. ,86770.0/ 


GALS ERRSET SUPPRESSES ANY POSSIBLE UNDERFLOW PROBLEMS THAT MAY 
RESULT FROM MANIPULATION OF SCENARIO PARAMETERS. 


GME ERRSET (208,50,-1,1,1) 
JAM=0 


CARD 2 TIME INCREMENT CALCULATION 
TINC = T(MNOM) 1000. + 0.0008 
Ganp © TIME INCREMENT CALCULATIONS 

TINKI = 0 


pent0 1=1,9 
TINK(I) = TINKI+T (MNUM)/10 
TINKI = (I) 


: TINK 
10 CONTINUE 
J// f (RRR PUNCH PROGRAM@SS88 ///// 


See reoONn TO PUNCH THE POO1 CARD DECK OR MICE-IIT CARD DECK 


IF (TDNCHL EO. RETURN 
im (TPNCH.EQ.2) GO TO 155 


COMMENCE PUNCHED OUTPUT OF THE P0001 CARD DECK. 


ie JCL CARTS. 


= 
> 0 
tH 
3 
es 
as 
CO 
« 


x 
od 
1-4 
ar | 
ty 
mo A od = — _, = 


WRITE 
WRITE 


LEADING BLANK DATA CARD SIGNIFIES RADAR MASKING ANGLE OF ZERO. 


C000 0000 C00 OO ~] 
~J NUNES GUD a OO 


esa 2828 838 & 


00.0000 0D 00 (1%) CO 


THE OUTPUT TITLE CARD. 
WRITE (18,90) 


HPI RAAB AAA AA AAAI A AHAB AA HH ARR AA AAANA AAA AA AA AAA ANA ANA AN AAA AAR HAH AHAAHA 
9 Gd Gd G9 GY) GO GO) GI DIY) GG) GG 0 Gd Gd) Gd GG WG GG Gd Ld G9) GL Ld WIL) Gd Gd I Ld GL GG Gd Gd Gd 


CARD 2 

WRITE tig on4 

Beer, (10,91) T(MNOUM),TINC 
maeeeen CARDS (MILESTONES). 
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EAAQ 


ANA AANA AAN 


AAN QAANM 


AAA AAD AANA AAQAND AAD 


AAA 


000 pO 17 I=1,MNUM 
WRITE (18,92) T(I),X(I),-Y (I) ,zZ (I) -XDOT(I) , YDOT (I) ,ZDOT (I) , HDG (I) 
1, CA CT) RA(I) 
17 CONTINGE 


WRITE (18,94) 
CARD 3 (GUN EMPLACEMENT CARD). 

WRITE (18,95) XGUN(1),YGUN(1),ZGUN(1) 
CARD 4 (GUN TYP®). 


Were (18,93 
WRITE (18,96 


CARD 5 


WRITE (18,89 
Ameeres (1e, OT 


CARD 6 
WRITE auEE 8) 
WRITE (18,98) (TINK(I) ,I=1,9) 


CARD 7 (VULNERABLE AREA TABLE VS TYPE 1 AND 2 WEAPONS) 


HE (13) 

WRITE (18 "10)) (VAT1N2 (I) ,I=1, 208) 
CARD 12 (EXECUTE RUN). 
EXTENDED OUTPUT OPTION 

WRITE {18 3101) 

IF (LE T.KE. 1) WRITE (18. 192) 

IF (TEXT.EQ. 1) WRITE (18,101 
THE REMAINDER OF THE CARDS INTRODUCE NEW GUN LOCATIONS, GUN TYPES 
AND VULNERAELF ARFA TABLES TO BE EXECUTED BY THE PROGRAM. 

WRITE (18,94 

WRITE (18,95) XGUN(2), YGUN(2), ZGUN(2) 
EXTENDED OUTPUT OPTION 

ee Geen WRITE (18,102 

et 24 WRITE 113! 1913 

qRITE 18/95 XGUN(3), YGUN (3), ZGUN(3) 

WRITE 18,93. 

WRITE (18,10 
EXTENDED OUTPUT OPTION 

WRITE mel: 

IF T. ue. 1 ) RITE 18,102 

TF TEXTES 1 WRITE (18,101 

WRITE (18, 3a XGUN(4), YGUN (4) , ZGUN(4) 


EXTENDED OUTPUT OPTION 
Wee ( Vayr3101) 
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CARD 7 (V 


WRITE 
WRITE 
WRITE 


EXTENDED 
WRITE 


IF fuse. (1 
IF pATEXKT SEQ 559 : 
WRITE 
WRITE 
WRITE 


EXTENDED 


0 
WRITE ac. 
ir 6( EE 
ive ae 
WRI 
WRITE 


WRITE 
WRITE 


CARD 7 


WRITE 
WRITE 
WRITE 


EXTENDED 


WR 
is (TE tT 
IF (LTEXT. i 
melt E ee 
ats 

ORMAT STA 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
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meee (18,102 


WRITE 


18, 101 


XGUN (5), YGUN (5), 2GUN(5) 


LE AREA TABLE VS TYPE 3 WEAPONS) 


| (VAT3 (I) ,I=1, 208) 


XGUN(6) , YGUN (6) 


OUTPUT OPTION 


) WRITE 
WRITE 


) WRITE 
WRITE 


( 


2102 


18 
18,101 


18,102 
18,101 


« ZGUN(5) 


XGUN(7),YGUN (7), ZGUN(7) 


BLE AREA TABLE VS TYPE 5 
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FILE: 73 FORTRAN A NAVAL POSTGRADUATE SCHOOL 
C TEE MISSLE LAUNCHER LOCATION 
C 
FTFAC=3. 28084 
WRITE 445° nod) 
XFSAM= XSAM@PTFAC 
YFSAM= YS ANSP TE AC 
ZFSAM=ZS AMBP TPAC 
WRITE (17, 318) XYPSAM,YFSAM,ZFSAM 
C 
C THE TARGET TRAJECTORY 
WRITE (17, 5219 
WRITE (172220) MNUM 
C 
: THE MILESTONE CARDS 
DO 160 /MNUM 
X(T a t) *FTFAC 
Y(Ij) =V (1) SF TPAC 
z : =7(T) “PTFAC 
VEL (I )=¥ BL (1) 2 Pr FAC 
Cie eet ry k(t), C1), Z(1) , VEL (1) ,CA (I), RA(Z) -HDG(I) 
160 CONTINGE 
C 
C END OF PUNCHED CARDS 
Cc 
; WRITE (17,222) 
1 170 RETURN 
C JI f (OR FORMAT STATEMENTS S882 ///// 
200 FORMAT ('// EXEC PGM=MICE,REGION=180K‘) 
201 FORMAT ('//STEPLIB DD DSN=4SS.F0559. MICESAV,DISP=SHR ") 
202 FORMAT t//ETO6EOO DD SYSOUT=A') 
203 FORMAT ‘£7270 5F001 DD %°) 
204 FORMAT ('01! 
205 FORMAT +e 251 &#*eSURVIVABILITY SCENARIOZ*2%% SAM ENCOUNTERS) 
206 FORMAT (1028 
208 FORMAT (*06! 
209 FORMAT (9X,'0",8x,'0.',9X,'0',4X,"0" 4X,'0",8X,'0.',8X,"0.") 
210 FORMAT Hey) 
211 FORMAT (7X,'23.° 3X et 198, 4X, "7! 4X vi 
212 FORMAT (8X,'9.'! Pap 102° pike Gey OP SON pit o Os TK, 
en. /, 7X," 70-6, 7k, 180. Tk DOOM reOe CO oe 110s" (6x, 1210. 
26X,'130.3 /, 6X 440: "8 150. * 6x © 160" 6x, 4179. ! OX, 186-1) 
213 FORMAT (6k, -96.' 6x,'-66.", 6x, /-36. §,8x,'0.',7X,'30.',7%,'60.', 
gv 
214 FORMAT a 
215 FORMAT ('098 
216 FORMAT Troe oe 7x SOs, * 6.08 7X, "0.0", 8k,'0.",7X,"30<", 8X, 
217 FORMAT ('11°) 
218 FORMAT (2X,?8. 2, 2F10.2) 
219 FORMAT Tat 
220 FORMAT (9x, a“ 2x WX, 11 4X 1B iy WDD adhice Tig U picben OiGs OF 
551 FORMAT (F7.1, 4810. 4 SRee 1, gitge aye O.') 
222 FORMAT ('20 Ve 
250 FORMAT (9X,"1',4X,'1", WK, t4E AXet Wy 3X, Ot 4K, 1 11 4X, 10! 
251 FORMAT (9X,°2*-(a4xXet 1 axe tae axe qe’ 3x e ge aye qe lax! coe 
252 FORMAT (9X5'3' UX 'dt ax tat aK eq! Bx eq ax ee axes 
253 FORMAT (9X,'G' lax sti axleae axe qe 3x70 qt ax ee ax age 
254 FORMAT (OX,9S* 4X,' 1 UX, f Ot AX, t qe, 3X 8 qOe ay qe Ry? age 
255 FORMAT (9X,'6' UX, 91! UXe At UXT SK IO Max eeu roe 
256 FORMAT OXS' Tax ede axe eat aXe qe Bxee oe axe qe ay? age 
A el 
Mememecccccecccccccccccccccececccceceec cccce’e cece ceceecececceccccccececce 
CCCCCCCCCCCCC CCCCO CC CCCCE CCC COC CCCC CE CCCCCE CCCE CC CCC2 CO CECCCCCCCCCCCEC 
CCCCC ELFIN CCCCC 
Beecccccccccccccecc ceccecccccceccec cece ceecec ceccceceececceceeccececcccece 
CCCCCCCCCCCCCCCCCE CC CC CCCCCECCCCCCCE CCCCEE CCC CCCCCCECCCCECCOCCCCECEECCECCC 


SUBROUTINE ELFIN (LAST) 
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FILE: 13 FORTRAN A NAVAL POSTGRADUATE SCHOOL 
COMMON /OEFT/IGUN, IPNCH, LEXT, ISAM,IMP, KER 
COMMON/MN/ IBAUD,MINY, MAXY,MINX,MAXX ,MIN1,MAX1 

C 

C WRITE PROMET 
CALL NOVABS (MINX, MAXY+5) 

CALL ANMCD 
BRITE (G7 £90) 
ICT=U+ 8% IBAUD 
DO 10 I=1,1cT 
CALL EELL 
CALL MOVABS (MINX ¢ MAXY 45) 
10 CALL CRWABS S (MTNX+400, Ha Y+5) 
CALL SCURSR(L1,I,e4) 


Os 
s CLOSE GRAPBHICS ROUTINES 
CALL NEWFAG 


; CALL FIN 
C OLD (LAST=0) OR NEW (LAST=1) FLIGHT PATH? 
C 
1 IF(LAST .FQ. 0) GOTO 20 
c REQUEST USER OUTPUT OPTIONS 
15 WRITE 6,595) 
READ ( 4) La T 
IF {René ~2 .OR. LAST.LT.O) GO To 15 
LAST=1 + Som LAST 
20 WRITE G+ 610) 
WRITE (6,620 
READ (5,%) IPNCH 
Cc 
: IF MILESTONES CAME FROM DISK, RETURN END OF FILE MARKER 
IF (LAST .EOQ. 0) LAST=83 
IF {IPNCH .EQ. 0) RETURN 
IF (IPNCH. EO. ) GOTO 100 
WRITE (6 ,6 3 ) 
READ (S,%) LEXT 
iF (TANCE ~EQ. 1) RETURN 
100 WRITE(6, 640 
READ (S a) ISAM 
aerity | ISAM .LT. 1) .OR. (ISAM .GT. 7)) GOTO 100 
590 FORMAT ('+HIT ANY KEY FOR OUTPUT OPTION SELECTION’) 
595 FORMAT(' ARE YOU FINISHED WITH THIS FLIGHTPATH: O=NO: 
600 PFORMAT(' SCREEN OUTPUT: O=NO OUTPUT: 1=OUTPUT DESIRED 
610 FORMAT(' OUTPUT FILE: O=NO OUTPUT: \=P001 FILE ONLY") 
620 FORMAT(? 2= NICE FILE ONLY: 3=P001 & MICE 
630 FORMAT(' EXTENDED OUTPUT; O=NOT WANTED: 1=EXTENDED OU 
640 FORMAT(' MISSILE TYPE ieee 1 AND 7°} 


END 
Meee eece CCUCE CCCCECCCCCCCCCCCCC CCCCCC CCCC CCCCCCCCCCCCC 
ummreereecee CCl CECCCCCCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCC 


Beccc SAMCHK 

Mumppreec (Cee CECCCC CCCCCCCCCCCC CCCC CC CCCCCC CCCC CCCCCCCCCCCCC 

Mummers CCC CC CCCCCC CCCCCCCC CCCCCCCC CC CCCCCC CCCC CCCCCECCCCCCC 
neo SAMCHK (XK, IERR) 


IF (X .GE. Once) URN 
CALL ERRMK (13 
ITERR=1 
RETURN 


END 
Meme CC CCC C CCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCC CCCCCCCCCCCCC 
Ret cc coe CE CCCE Ce ceecceceececccceececcece 


Ecc AIMPT 
Mummers © © CCCC CCCGC CC CCCCCC CC CCCCCCCC CCCCCT CCCC CCCCCCCCCCCCC 
Genrer e Ce COCGCe CECCC CCECC CCCCCCCC CCCCCC CCCC CCCCCCCCCCCCC 
SUBROUTINE AIMPT (I) 
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CCCCCECCCC UGE 
CCCECCCCCCCEEE 

CCCCE 
CCEEC CE CCECEEEe 
CECCCECCECECE 


CCCCECCCCECCEEE 
CECCCCEE CCCEE 

CCEEE 
CECCCCCCEEECEe 
CCCCECCCECEECGE 


er Lie Mae Dae i Lae Le Rae Le De ae a Lae ee De Dae a Do ae ee De Da Ce oe ae De Dae a De La Le DD a De a La ee Le Le ae ae a Da a oe Lae Da Lae ae ae Da oa Do a ee cae Va Va De ae ae cae | 
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meres T3 FORTRAN A NAVAL POSTGRADUATE SCHOOL 


COMMON/TA R/TARGX, TARGY T3 
COMMON/PAR/X (200) ,¥ (200) 73 
Cc 
C MOVE TO CURRENT MILESTONE COORDINATES T3 
Cc 
; r 
CALL MOVEA (X(I),Y(Z)) 3 
C 
C DRAW DASHEL LINE TO TARGET 73 
C 
CALL CASHA(TARGX, TARGY, 1) T3 
END r3 
cececceececceccecececceccececeececcccceceecece ecec cceeeceecceeceeececeececccct3 
ececccccccceccecce ce Cceceece ee EEC Cece Ccecee CECE CCCe CE CCCCECCCECCCECCCE CCT 3 
eecccccccccecceccececececececececcce ceceece cece ceecceececececeecceccccccecet 3 
CCCC CC CCCCCCE CCCCE CC CE CCECCCCCCCCE CE CCCCCE CeCe ceccecccccccccccececccccecct3 
SUEROUTINE CONCHG T3 
COMMON /PAR3/TMD,ACLIFT,CLMAX, WL,TMAX ,CDO ,CDK, VMAX1, VMAX2 T3 
COMMON /PARG/ AP PAAX, HTMEIN, HTMAX ,SPDMIN, GMAX, POPMIN T3 
COMMON /TAR/T ARGX , TARGY T3 
1 CALL NEWEAG T3 
T 
: WRITE INSTRUCTIONS 13 
30 WRITE(6,100 T3 
WRITE (6, 105 T3 
WRITE (6,110 73 
WRITE (6,115 T3 
WRITE(6, 120 T3 
WRITE (6,125 73 
WRITE(6, 130 73 
WRITE (6,135 T3 
qe ae 
g 
IF (i ey3 OieORe (Ko sGT..17)) GO TO. 30 T3 
GO 0(209,2 Bess 8559510. 14,12, 13,14, 15, 16,17) , x T3 
2 WRI E (81,20 2) 73 
READ (5 #) CLMAX T3 
GO T0 30 73 
3 WRITE (6, 203 T3 
READ (5,*) WL T3 
GO TO 30 73 
4 WRITE (6,204) 73 
REAL (S5,”) SPDMIN T3 
MR gor So (29282 a3 
E(6, T 
REAE(S 2 max T3 
GO 10 30 T3 
6 WRITE (6,208) 73 
REAL (5 a) HT MIN 73 
GO 10 30 T3 
7 WRITE (64,207) 73 
REAL (S,) HTMAX T3 
GO TO 30 73 
g WRITE (6,208) 73 
REAL (S,%) POPMIN 73 
GO TO 30 T3 
9 WRITE (84202) T3 
REAL(5,“) APPMAX 73 
GO T0 30 T3 
10 WRITE (6,219) 73 
READ(S,#) TMAX 73 
GO 10 30 73 
11 WRITE (6,211 73 
REAL (5, *) CDO 23 
GO To 30 73 
12 WRITE (6421 2) m3 
REAL (S,%) CDK T3 
GO To 30 73 
13 WRITE (6421 3) 73 
REAL (5, *) VMAX T3 
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BI Les T3 FORTRAN A NAVAL POSTGRADUATE SCHOOL 


GO TO 30 
14 WRITE (84.21 4) 
READ (5, %) VMAX2 
GO TO 30 
15 WRITE (6,213) 
REAL (5,7) TARGX, TARGY 
GO TO 30 
S 
C READ NEW PARAMETER VALUES FROM THE DISK 
Ee 
16 REWIND 16 
READ (16, 300)CLMAX, 4L,SPDMIN,GMAX ,ATMIN,HTMAX 
REAL (16,300 BOPMIN APPMAX,T MAX , CDO ,CDK, VMAX1 
REAL (16, 300) VMAX2, CARGK TARGY. 
. GO TO 30 
C WRITE PARAMETER VALUES TO THE TERMINAL 
c 
17 WRITE (€ 250) 
WRITE (6,300) CLMAX,WL,SPDMIN, GMAX, HT MIN, HTMAX 
WRITE(6, 255 
WRITE (6,300) POPMIN, APPMAX , TM AX, CDO, CDK, VMAX1 
WRITE(6, 260 
WRITE (6.300) VMAX2,TARGX,TARGY 
Go to 36 
C 
C SAVE PARAMETER VALUES ON DISK AND RETURN TO CALLING ROUTINE 
200 REWIND 16 
WRITE (16, 300)CLMAX, WL,SPDMIN,GM AX, HTMIN,HTMAX 
WRITE(16, 300) DOPMIN, APPMAX,TMAX ,CDO ,CDK, VMAX1 
WRITE (16 » 300) VMAX2, TARGX, TARGY 
RETUR 
100 FORMAT(® | t) 
105 FORMAT(* SELECT PARAMETER TO BE CHANGED: 1=NO MORE CHANGES') 
110 FPORMAT(' 2=MAX LIFT COEFF: 3=WING LOADING: 4=STALL SPEED") 
115 FORMAT?" S=MAX G FORCE; 6=MIN ALT; 7=MAX ALT(<2200 MTR) ') 
120 FORMAT(' 8=DISTANCE TO'TARGET BEFORE POPUP ALLOWED *) 
125 g FORMAT (: 9=MAX APPROACH ALT; 10=MAX T/W RATIO: 11=DRAG COEF. W/OD 
130 FORMAT(' 12=LIFT DRAG CONSTANT: 13=MAX SPD WITH BONS!) 
135 PORMAT(* 1U=MAX SPD W/O BOMB: I5=TARGET COORDINATES ° 
140 FORMAT(' 16=READ PARAMETER FILE: 17=LIST PARAMETERS") 
202 FORMAT(* ENTER MAX LIFT COEFFPICIENT' 
203 FORMAT (* ENTER WING LOADING') 
204 FPORMAT(' ENTER STALL SPEED*) 
205 FORMAT(* ENTER MAX G FORCE ALLOWED!) 
206 FORMAT(' ENTER MINIMUM ALTITUDES) 
207 FORMAT(* ENTER MAXIMUM ALTITUDE (LES S THAN 2000 METERS) "*) 
208 FORMAT(* ENTER MINIMUM DISTANCE TO TARGET BEFORE POP-UP ALLOWED’) 
209 FORMAT(" ENTER MAXIMUM APPROACH ALTITUDE! 
210 FORMAT(* ENTER MAX THRUST TO WEIGHT ALLOW 2D") 
211 FORMAT(' ENTER DRAG COEFFICIENT FOR ZERO LIFT') 
212 FORMAT(" ENTER LIFT DRAG CONST ANT") 
213 FORMAT (* ENTER MAX SPEED CARRYING A BOMB =} 
214 FORMAT(* ENTER MAX SPEED AFTER BOMB IS RELEASED") 
215 FORMAT(* ENTER TARGET X AND Y COORDINATES 
250 FPORMAT(' MAX CL WING LD STALL SPD M ax G MIN.HT. MAX.HT.') 
255 FORMAT(! POP-UP DIST APPR.HT. MAX TYRUST CDO DRAG CONSTANT 
“MAX SPD WITH BOMB) 
260 FORMAT (* MAX (SP W/O BOMB TARGET X COORD. TARGET Y COORD.') 


FORMAT (6F12. 
END 


Mure ee © CCC CC CO CCECCECCECCECCCCCC CCCCCC CCCC CCCCCCCCCCCCCCCCCCC 
GumemocemeracCOCCCCCCCCCCCCCCCCCC CCCccc cccccccccccccecceccccccecc 
c SUBROUTINE ERRCHK e 
meee Ser” CO CCCCCCCCEC CCCCCCCE CCCCCC CCCC CCCCCCCCCCCCCCCCCCC 


cece CE CEC ECE CC ECCC LE CC CCC CEC CC CECE CECCECES CoCK CeCe CEC ECE CCCeE CK 
SOBROUTINE ERRCHK (TSR 
COMMON /P AR/X (200) (200) 4 200) ,HDG (200 4 (20 oy RA (200) , VEL(200) 
CCMMON /PAR1/ DOT (200) OT (200) ,zD0F (20 yen uM. MBR 
COMMON /P AR2/T (200) 
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ie FORTRAN A NAVAL POSTGRADUATE SCHOOL 


COMMON /TAR/T ARGX , TARGY 
COMMON /PAR3/TMD,ACLIFT,CLMAX,WL,TMAX ,CDO, CDK 
COMMON /B ARA/ AP DM MAX, HTMIN, HTMAX ,SPDMI N, GMAX, POPMIN 
DATA TMSAV/-1./ 

DESTARG X-K(MNIN 

DY=TARGY-7 (MNUM 


DIST=SORT(DXB22 + D2) 


INITIALIZE POPALT AND TMSAV 


IF ((HNU.NE. 2) ~ AND. (TMSAV.NE.-1.)) GO TO 15 
OPALT=0. 
TMSA V=TMAX 
BR £0.05 AND. TMAX.NE.TMSAV) TMAX=TMSAV 
1 GOTO 30 
(DIST ~LT. POPMIN).OR. (Z(MNOM) .LT. APPMAX)) GOTO 30 


E RN 
LF. POPMIN .AND. zZ (MNUM) « GT. POPALT) POPALT=2Z (MNUM) 
) .GE. HTMIN) GOT 

E 
M 


war 


RN 
-LF. HTMAX) GOTO &5 


UM) .~GE. SPDMIN) GOTO 50 


Sama aQWis WAH 
2am ea wWree 


rh li cero li = 


IF (MN ~£Q. 2) RETURN 

MERGE TFT . LE. GMAX) GO TO 51 
ERR=1 

RETURN 


COMPUTE DRAG AND LIFT FORCES 


RHO=0. O256RE XP (-0. Be Jozeds (ANTM 71900. )) 
IF (Z (NOM 52 
RHO=0.0079 SEI (-9 “hes (2 (aN - 10670.) /1900.) 
CL=28ACLIET/ RHO® (V EL (MNO) #8 y/WL 
me (CL LMAX) 
TERR= 249 


RETOERN 

(€D0 sCDR"CIMCL) /CL) #ACLI FT 
+D 

(TW .LE. TMAX ygANDs (TW. - GE. 0.)) GOTO 55 

Tr (IW ,Gt. THAX) TERR=18 

DW= RHO® (VEL (MND hy 86 2) 7WL) = (0. -05 #CD0+CDK* (CL*%2)) /2. 
IF (TMD+DW .LE. 

IP (IERR .NE. ay RETURN 

IF (MNUM .NE. MBR) RETURN 


EVALUATE BOMBING RUN 


DT= SE (MNO) OT (MNOMS 1) 
TGTHDG=ATAN2 BY, DX) 57.29578 
IF (TGTHDG .LT. 0.) TGTHDG=TGTHDG+36 0. 
DX=X (MNUM) - X (MNUM-1 
DY=Y(MNUM) - Y(MNUM-1 
)*5 7.29578 
0.)  ACHDG=ACHDG+360. 
-ACHDG) 
00.) GOTO 58 


ACHDG=ATAN2(DY ,DX 
ie ( ACHDG .LT. 

HDGLUT=ABS (TGTHDG 
IF Lease 


1 ( 
13, 


Niit'd 
am, ATI O 
mMmiezaurd i 
+3 


M) .GE.100.) GOTO 60 


M) .LE. 2000.) GOTO 65 
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eLE. 2000.) GOTO 75 
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APPENDIX C 
KBPIP MODIFIED MODULES 


COMMON /LOC/X1,Y1,21,V1, LTR, LT R2 
COMMON/MNY LBAGD, 4INY, MAXY,MINX,MAXKX , MINT, MAX1 
COMMON /P AR/X (200) z (200) 24200), HDG (200) CA (200) RA (200) , VEL (200) 
COMMON/PAR 1/XDOT (200), YDOT (200) ,zZDOT (20 bet UM,MBR 
COMMON PARZ/T (200) - XGUN(7) , YGUN(7) .ZGON( ),XSAM, YSAM,ZSAM,GR(7) 
COMMON JOFT/IGUN, TPNCH,ISXT,ISAM,IMP, KER 
COMMON /TAR/T ARGX, TARGY 

LL ERRSET SUPPRESSES ANY POSSIBLE UNDERFLOW PROBLEMS THAT MAY 


SULT FROM MANIPULATION OF SCENARIO PARAMETERS. 


CALL ERRSET (208,50,~-1,1, 1) 
MBR=0 
MNOM=0 


GIN 
CALL SCENE(0,0) 
IF (IGUN .NE. 1) GOTO 250 


moe USER ENPUT OF GUN SITES 


REWIND 10 
CALL ERRMK(16) 
LTR=0 


LTR2= 
DO 21 
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mm OSS * sh 
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-) Stop 
CALL GUNCHK (X1,Y1,I ERR) 
0) GOTO 212 

K (IERR) 
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PaLe: T1 FORTRAN A NAVAL POSTGRADUATE SCHOOL 


DRAW GUN SITES AND ENGAGEMENT CIRCLES 
DO 265 I=1 


AAN 


c 
C 


gy 
a 


2 60 
Zo> 


300 


c 
302 


3 
C 


‘a 
305 


a 
a 
C 


308 


352 
B55 


aie. Beac XGUN (I) ¢YGUN T) eGR (I) ) 
CALL GUNLOC (XSAM, YSAM,1 


THIS SECTION ACCEPTS THE FLIGHT MILESTONES 


FTFAC= 3.280 84 
DGFAC=57.29578 
CALL ERRMK(15) 
REWIND 11 
MNUM=MNOM+1 


READ MILESTONES FROM THE DISK 


IF (IMP . 
R AD (146 2 
IF (miu M 
IF (LTR .E 

LTRZ=LTR 

GOTO 308 


NE. 0) GOTO 305 
pte. Of} CON ae ie VEEN 


bot 1) "P= 


— 
lic 


READ MILESTONES FROM THE TERMINAL 


CALL XYZIN(1) 
NUM) =X1 


X (M 
x (HNOy =Y1 
Z (MNOM) =2Z1 


COMPUTE FLIGHT PARAMETERS AND CHECK FOR ERRORS OR USER COMMANDS 


0. Oo) so LOF 


VEL (MNUM) =V 1 
IF (NUM. EQ. 1 .AND. LT 
1) GOTO 30 


ee Te 3 


Lost (Le 


Re EQ. 0) yu GOTO SS 50 


ABH AHHHOHH 
ee bd bad bf ed ba Oe tad eit 
aa tHittctiee. 
Wi td bbe Ore HHH rt hom 
ieee ® 
Ore oe Onn ~ 
WO WiOowdr’sd 
eae 
@ 
© 
| 
O 
(WJ 
© 
Ga) 


Peo Re letlegies 


.1) GO TO 305 
ED, RESTART THE SEQUENCE 


U 
A 
T 
R 
R 
R 
E 
R 
iL 
T 
R 6.65 .OR. LTR2.E0.65) CALL AIMPT(4NUM) 
THIS SECTION RESETS THE DATA 
CALL SCENE(1, ICT) 
REWIND 19 


LTR2=0 
IF(MBR .GT. ICT) MBR=0 


COMPLETE RESTART 


IONS ren Glee) GOTO 352 


MNUM) .AND. (MNUM .GE. 3)) ICT=MNUM-1 
eG. 
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eeess T1 


FORTRAN A 


NAVAL POSTGRADUATE SCHOOL 


MNUM=MNUM-1 
GOTO 260 


QA0AN 


a 70 BLANK=0. 
Chile CoE LT 


LAST=IMP 
_ CALL ELFIN (LAST) 
2 COMPUTE FLIGHT PARAMETERS FOR FINAL LEG 


DX=X (MNUM)- X (MNUM-1 
DY=Y(MNUM) - Y(MNUM-1 
DZ=2 (MNUM)- Z(MNUM~1 
RA (MNUM) =0. 
CA SN OM =ATAN2 (DZ,SORT (DX##2 + DY %%2)) 
IF ((L Ee On: . (DY .EQ. 0.)) GOTO 371 
atey MNOM) =ATAN2(DY, DX) 
GOTO 372 
a4 IF ((C£X .EQ. 0.) -AND. (DY .GT. 0.)) HDG(MNUM) =1.57079 
IF ((DX . EO. 0.) cAND. (DY cLT. 2.)) HDG(MNUM) =-1.57079 
IF 5 EQ. O.) sAND. (DX .LT. O. HDG MNUM) =3. 14159 
IF ((DY . EO. 0.) cAND. (DX GT. 0: MNOM) =0. 
372 XDO T(MNUM) =VEL (MNUM) “CO Be | MNOM Cosi (cals M) } 
YDOT (MNUM) =VEL (MNUM)4SIN ADC | MNUM)} °COS (CAC MNUM) } 
; ZDOT (MNOM) =VEL (MNUM)SSIN(CA (MNUM) 
€C CREATES NEW " PTS LOC " IF NEW WEAPON OR MILESTONE COORDINATES 
C HAVE BEEN INPUT 
IF ((IME .£Q. 0) «AND. (IGUN .NE. 1)) GOTO 377 
REWIND 11 
IGUN=1 
WRITE(11,625) BLANK,BLANK,BLANK, BLANK,BLANK 
DO 375 I=1, MNUM 
LTR=0 
IF (I .E0. HBR) L LTR=66 | 
ie OE .20s UND 
375 WRITE(11,625 M(t) pV (a) $7 (1), VEL (I) »LTR 
WRITE (11,626 
antrete 11,627) VEL (1) ,MBR,BLANK, BLANK , IGUN,ISUN, BLANK,BLANK, 
DO 376 I=1,6 
a6 WRITE (11, 62 25) KGUN (I) ¢YGUN(T), , 2G N(I) 
: WRITE( 11,625) XSAM,YSA 
C CONVERT ANGLES FROM RADIANS TO DEGREES 
377 po 380 I=1,MNUM 
CA(I)=CA 1) SDGEAC 
RA(L)=RA(T) SDGPAC 
380 HD { )=HDG(D“DGFAC 
CALL PRESET 
500 FORMAT 217) 
501 FORMAT (3F10. 2) 
625 FORMAT (UF10. 0,13) 
626 FORMAT (' 99999: *) 
627 FORMAT(F10.0,I12,811,F10. 0) 
STOP 


DRAW RETAINED MILESTONES 


IGUN, 


Nee rae eS ET ee 2 Se Es ———_—-_ 


a A 
ee eee ee eee ae 


BODO 999000 DOGOOO9DSODOOCOOGVGOVOSDGCODOODVOSCBBGOBOHGGODBI9GOR 


Be 6 Te OS eT oe We We oe. Ce “Sak 
= =e eo ae = oe as we - 





<e 


Mummers ©C CCCC CC CCCCCCCECCCCCC CE CCCCES CCCC CCCCCCCCCCCCCCCCICC 
Gumpereereee eC CCCCCCCCCCCC CECE CCEC CC CECESS CCCCCCCCCCCCCCCCCCCCCCC 
& UBROUTINE ERRMK C 
urernre cc CCC CCCCC CC CCCCCE CC CCCECCCCC COC CCcC CCCCCCCCCCCCCCCCCCC 
MUMS gerOUT INE EGRNE fens; ee erence cc 


ee 


SUBROUTINE ERRM 
COMMON /PAR/X (20 56 200) ,HDG(200) ,CA (220) , RA (200) , VEL(200 
SOUSA BLE Sen it wet lap? e2D ON (20h o anos ABR oleae sae. 
Sareea ED : 

TO(1,2.3,4,55, 6. or 3, oe 10, 11,12,13,14,15,16,17,13,19,20) ,LERR 
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ae Do fe Be Doe oe ee See Dee De De De Bee Dee Doe le Doe Do Ne Noe ae De Da Die ee Do Nae De ie Se ae De fe ae Doe Nie ae (cae ae oe a ie De Dc a ee Re Ne ee ae Be ee ae Le Doe Vc ee De ae ee Lae Die: ee Lae La ae Ue ae oe Lr De 
xh od ed med oh eg ed ed ed od ed ed eed ch ch ed eed wed ced ee eed dh ee nk et wed ed ed et wed eed eed ed ced eh etd eed wh eh th ed oh ced ed eed eed ed ed 2) od ed wed th ed ed oe ood ed wd ed oe ed ed ed od odd od od oo) =) 2 = 
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FILE: T1 FORTRAN A 

1 WRITE (6,601) 
GOTO 

Z WRITE (6, 60 2) 
GOTO 7 

3 WRITE (6, 60 3) 

OT0 75 

4 WRITE (6, 604) 
G 15 

5 WRITE (6 605) 

6 WRITE (6, 606) 
abt a5 

7 WRITE (6, 607) 
GOTO 75 

8 WRITE (6, 608) 

9 WRITE (6, 609) 
GOTO 75 

10 WRITE (6, 610) 

11 WRITE (6, 611) 
GOTO 75 

12 WRITE (6 6 12) 
GOTO 75 

13 WRITE (6, 613) 
GOT 

14 WRITE 6, 614) 

15 WRITE (6, 615) 

ee ere 

0 i 85 

17 WRITE (6, 617) 
GOTO 

18 WRITE 6,618) 


RETURN 
FORMAT 
FORMAT 
FORMAT 


raj 
O 
oO 
«4 
Hae 
3 


FORMAT 


QQ UD aw ot a SD BOODOOOVOOOUWN~)S MN = 
= DOWOWNN SEWN amOvudARDUIFWN= UW © WH 
iz 3 | 
© 
> 8) 

He 4 
os 
H 


Q 
CV DNAKHRADAAAHAHAAAAARAAH AAW 


GO 

WRITE (6 619) 
WRITE (6 6 20) 
WRITE (6,650) X(MNUM) ,Y (MNUM) ,Z(MNUM) ,VEL (MNUM) 


NAVAL 


MAXIMUM BRAKING EXCEEDED‘) 
MAX G EXCEEDED®) 


ty 


STALL* 
POP-UP TOO LOW") 


BMB DROP LOW 


a) 


BMB DROP HI‘) 


NO HORIZONTA 


TOO FAR FN TGT' 


L noTrLO =) 


Teo CLOSE TCO TGT 
ENCER Missile LOCATION") 
BNL ERO MILESTONES ° 
ENTER GUN LOCATIONS‘) 
MAX LIFT EXCEEDED' 


MAX THRUST EXCEEDED! 
Les ou 


X COORDINATE 


hn 6000 * 


POSTGRADUATE SCHOOL 


) 
DO YOU WANT TO FIX THE ERROR:0=NO,USE THE POINT; 1=YES‘) 
Me, GeAND VELOCITY’ ,4F9. 1 


HPLT 
200) 
D 


~~ 


C 
mmr © CCCCC CCCCCC CCCCCCCCCCCC 


END 
mmmeee CCCCGCC CCCCCCCCEC CC CCCCCCCEEccc CCCCCCCCCCECCCCCCCCCCLCe 


Geecec Geucee CECE CECCCCCCOCECCCCCCCECCE 
& SUBROUTINE PTHPLT S 
mmeee co CCCCccCc CCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCECC 
memmee ©CGCCCCCCCCC. CC CCCCCCCCCCCCCCCcccccccc Cccccccccccccccccccecc ce 


¥ (200) ,Z (200 
oT (200) , YDOT (200 
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2 HDG 
2200 


200 
(20 


,CA (200) , RA (200) , VEL (200 
by akin, MBR ao eo 


HAHAH HANAHAN ANNA ANHAWNAH 


HABA RAB AAA BAAD AYAABRANA BAA BADAHA AAA AAAANAAAAANAANAANAHAH 


— 


ee wee ee ele 





ee er ee ee SR eo Oe 8 ee Se BE ee EO ee 
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BILe: TT FORTRAN A NAVAL POSTGRADUATE SCHOOL 

COMMON TYEAOD ,MINY,MAXY ,MINX, MAXX 

WRT (6, 600) SNUM 

SAVE MILESTONE DATA IN TEMP DATA : 

ee” NTL ES AONE oF faoake ge (AN Pe (MNUN) SM BR 
Minos LO 


600 FORMA ACCE PT 
625 FORMAT(4EF10.0, 
RETURN 


AAA 


ND 
meee ewe © CCC 6c CCCCCCCCCCCCCCCCCCCCCE CCcCCCCCCCCCCCCCCCCCIOCC 
Rage ae ee CECE COCCCEeeceececceececece 
& 
up emreremeeme Cece ClCC CCCECECEEECC CC CCCCCC CCCC CCCCCCCCCCCCCCCCCCC 
Me SuEROUTING GUNLOC GX GY Hap) 

SUEFROUTINE GUN eG Wo sa 

Sane IEAUD,MINY, MAXY, "MINK, MAXX, MIN1,MAX1 

TURN 


ENDL 
femme C CCCCE CE CC CCCECCECCECECE CCECCC CCCC CCCCCCCCCCCCCCCCCCC 
Mumemerremeceuecrc CC CCCE CC CECCCCE CECCCCCECECCCCCe CCCCCCCCCCCCCCCCCCCCCCC 


& SUBROUTINE WIN S 
c THIS ROUTINE DEFINES A WINDOW EXTENDING FROM LX TO MX ON C 
= THE HORIZCNTAL AXIS, AND FROM MINY [T9 MAKY ON THE VERTICAL C 

AXIS. THE HORIZONTAL RANGE IS RX, THE VERTICAL RANGE IS RY C 
ceccececctecc cecec cece cecece cc cecce See eemce camer eect 


SUBROUTINE WIN (LX,MX,RX, RY 
COMMON IEAUD,MINY,MAXY 
RETORN 


NC 
Serer ee eee ©CCee Ce CECCCE CECECECE CEC CCCCCC CCCC CCCCCCCCCCCCCCCCSCC 
Ree tee ce CCCECCeeece eeeececcecececceccecee 


SeOr S 
2 THIS RETURNS AN X-¥ PAIR AND TWO COMMAND VALUES LI6L2 C 
& Doone Noe GReALES A DOT AT POINT X,Y AND ASKS FOR G 
c OPERATOR VERIFICATION (ASCII"N"=78 E 
Mee ermeece © CCCCe Ce COC CCCEE CCCCCCCCCCCCCS CCCC CCCCCCCCCCCCCCCCECCC 


SQenOU TINE SPOT(X,Y,1L1,L2) 


c 
. L1=0 READ X AND Y 
Ll (UG eee 60d GOTO 10 
RITE 


READ 4° X, 
ROTO 3 0) 


QAAN 


10 IF(L2. EQ. 0) GoTo 15 
WRITE (6,6 10 
WRITE (6,6 20 
READ (5,*) Y,X,L1 


c 
: CONVERT COMMAND TO PROPER FORMAT 
IF(L? .£0. VW) L1=65 
IF(L1 .EQ. 2) 1L1=66 
IF(L1 .EQ. 3) L1=82 
IF(L1 .EQ. 4) L1=83 
GOTO 20 
15 diet Tere 
READ (5,%) Y 
20 L2=L1 
6 00 FORMAT ¢ ENTER X AND Y COORDINATES') 
Bo )860 FORMAT (* Boce ALTITUDE, VELOCITY, AND AN See et 
620 FORMAT ¢" OPTION: O=NONE; 1=AIM; 2= =BOMB; 3=RESET; 4=STOP') 
6 30 aeenas : ENT ER ALTITUDE‘) 


END 
~mmernmiee © Cece CCCCCCCC CCCCCCCCECCCCCCCS CCCCCCCCCOCCCCCCCCCCIOCC 


gecec ceccece cc cece CC CCCCCCCCCCCCCC CC CCECCC CCC CCECCCECCCCE CCS CC 
c 


SUBROUTINE SCENE 
Gia 


E£2=0 READ ALTITUDE, OTHERWISE READ ALTITUDE, VELOCITY, AND A CMD 


re ee ee a a Du Doe Be a De fe Nae De Ce Ge De De ee fe fe fe ec oe ee fe De eo foe a oe foe a ae ee ae at ee Ge De ee Le el LE le L) 


om mw ww me wee ee ee ee le 








a ee oe =~ 
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EeeLEs Tt FORTRAN A NAVAL POSTGRADUATE SCHOOL 


PEVDEARo thw AfZcaCK MAP 
Stee eee eeeeeeecececececcerce 


C THIS ROUTIN 
eececcecccccececccccceccc 
SUBROUTINE Scere ratte 
COMMON /LOC/ X1 v1, 
SoueDt Ee Ca) GF (200 of 
rh & 
COMMON/MN/IBAUD, he cent (15) MAXX, MINT, MAX1 


Cc 
% ASK USER FOR RESET NUMBER 
C 
IF (IRQ. ~E0: 0) GOTO 10 
RITE (6 600 
: READ ( yen 
C DISPLAY DATA FOR FINAL POINT OF THE RESET AS JPERATOR AID 
c 
- arrtRITE (6, ,650)X (ICT), Y (ICT) ,Z (ICT) , VEL(ICT) 
600 FORMAT() AT WHICH MILESTONE, DO YOU WISH TO RESTART?) 
650 FORMAT ' X,Y,Z,AND VELOCITY’ ,4F9. 1) 


Memmreree eee CCC Ce CCC CCECC CC CECCCCCC CECCCCC CCCCCCCCCCCCCCCCCCCCC CC 
tg ee Cee CCUCC ect e ceee ceceececececeececc’ 


C 
Sue @eeGeece CCCcce CCCCC CCC Ce Cccece cc Ccccec ccccecceccceccceececcce 
¢c cccc ccccce ccccce Ccccccccccecc CCC ce ccecce cece cececcececccceccctc 
SUBROUTINE XY¥ZIN (TV) 
COMMON /LOC/X1,Y1,Z1,V1, LTR, LT R2 
COMMON TEAUD, mtNy SHAY MINX, MAXX, MIN1,MAX1 
CALL WIN(MINX, MAXX, 18060., 12000., 1) 


GET X,Y AND THE FIRST COMMAND 


AAN 


CALL SPOT (X1,¥ 1/LTR,LDM) 
CALL WIN(MIN1, MAX1,350.,2200.,1) 


GET VEL AND,IF IV=1,ALT AND THE SECOND COMMAND 
CALL SPOT(V1,2Z21,1TR2,LDM) 
CONVERT LOWER CASE TO UPPER CASE 


Mute Gi. 96) LYR=LTR=-32 
ZP ({LTR2 .GT. 96) LITR2Z=LTR2-32 
RETURN 


ANNA AAN 


ND 
cccccccccceecccece cececeeccececeeceececces cece cececececececceccece 
ec cccCCccccc ccccccececceccecccccccccecccccce cece cccececccececcccccc 
c SUBROUTINE BEGIN C 
eccccccccceccecececcccececcececeeceeceecce cececececcececcecceccce 
CCCCCCCCCCCCCCCCCO CE CCCCCCCCCECEEE CE CCCCCE CCCC ECCCECECECECCCECCEEZCE 

SUBROUTINE BEGIN 
COMMON/MN/IB AUD, MINY, MAXY, MINX ,MAXX, MINI, MAX1,MADP 
CCMMON /OET/IGUN, IPNC4, IEX®, ISAM, TMD. KER 


Cc 
: READ USER CPTIONS 
50 Conte (o,8) 2 


) IGUN 
RRrre | (6 ,630 
READ (S,*) IMP 
WRITE (6,535 
READ (5,%) KE 
WRIT £6 54 0) 
READ (5,2) KO 


IF ON NE. 0} CALL CONCHG 


600 FORMAT GUNS: 0=DISK FILE; 1=TERMINAL:2=PRESET °') 
630 FORMAT MILESTONE INPUT: O=DISK FIL®::; T= TERMINALS) 
635 FORMAT ERROR CHECKING: O=NO CHECKING; 1=CHECK FOR ERRORS‘) 


Iheys) 


Z (500) «HDG (200) 4CA(290) »RA (200) , VEL(200) 


HHI iH HANAHAN AH AANA AHA AAA AAA ra NA AA AA AAA A Sabha AANA AAA AAA ASB AAA HAA 
Se ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee ee ee ee SE Ee Ee eee eS, ee, ee eee eee Le ee Oe ee Oe ee eee eee eS 


AINAIAOADOAND 


ey 


— ws 2 


ONADODODBDOOOOVO GO COCO VBOVSVOOOWOVOV00 
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RONAN ON ONES 





arLes Tt FORTRAN A NAVAL POSTGRADUATE SCHOOIL 


640 FORMAT (* FLIGHT & GAME PARAMETERS: O=DEPAULT; 1=USER INPUTS) 
i 
c DUMMY SCREEN WINDOW COORDINATES 


AX 


Zw~I~ 2 = 
~~ 
~~ 
i 
ae Te 
rr 


Di i wu www 


‘@lu pele te te te te + 


IN 
ecccecccceccccecceccececcecececececcccccec ecececcecee ceececceccccccce 
CCCCCCCCCCCCCCCCCC CC CCCCCCCCCCCECCCECCECEE CCC CCE CCE Ccececcecececcccccctccc 
CCC CCC CE CECE CECE CECCECCCe CECE CK Ce CCCECe Cee CCeeee CCCCECCCECCCC Ce CCC CK 
cc ccc C 
eeccecccececccececee cececceeceeeccecccceeccee 2 ceeecceceecececcecececcceceece 
Becccccccceccccccce CC CCC CCC COCCCCCCCC CCC CCE CeCe Cccecc cc ccccceécceéc ce ccéecccc 

SUBROUTINE ALMPT (I) 

COMMON/TA R/TARGX, TARGY 

COMMON/PAR/X (200f , ¥ (200) 


i: 
¢ COMPOTE DISTANCE TO THE TARGET 
DX=TARGX-X(f 


DYsTARGY-¥( 1} 
DIST=SQRT(DX#® DX +DY"DY) 


Cc 
: WRITE DISTANCE TO TARGET AND DIRECTIONS FOR ALIGNMENT TO USER 
Ex=100. 404/131 
CX=10 nen 
DY=10 DY/DIST 
WRITE ( ae TS DX 
WRITE (6,20) DY 
10 monn (* DISTANCE TO TARGET IS',F8.1,' METERS'® ) 
lige POraAr(’ INCREMENT X',FS.1,' METERS FOR EVERY 100 MTRS TO erty 
ZO pee he aol utoe td, uboenS FOR EVERY 100 MIRS TO TGT* 
D 


EN 

Muppeer cece CCCCE CC CCCCCCCCCCCCCC CCCCCCCE CCCC CCCCCCCCCCCCCCCCCCCCCCCCCC 
Mum CCC CC CCCC CC CECCCCCCCCCCCCCEC CCCCCE CCCC Ceccce cccceccceccececcceccc 
CC CCC ELFIN CECCE 
MummreeeC CO CCCCCC CCECCECECCCCCC CCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCC 
Gumpeemreece Cc oeece COCCCCCCCcecccccccccccecccceccceccecrocceccececececcecce 

SUBROUTINE ELFIN(LAST) 

COMMON /OPT/IGOUN, TPNCH, LEXT,ISAM,IMP, KER 

COMMON /MN/ IBAUD, MINY, MAXY, MINX, MAXX ,MIN1, MAX1 


OLD (LAST=0) OR NEW (LAST=1) FLIGHT PATH? 
IF(LAST .EQ. 0) GOTO 20 
REQUEST USER OUTPUT OPTIONS 
15 WRITE (6, ga) 
EAD (5 te LAST 
TF (LAS GE.2, -OR- LAST. LT.0) GOTO 15 


20 dgare (6/829) 
CH 


ANA AANA 


WRITE (6 
READ (5,“)IP 


& 
: PoeeeeeotLONES CANE FROM DISK, RETORN END OF FILE MARKER 
10 (ZicH” 22 - EQ "hy ae toRn 


pey Een RETURN 
° b GOTO 100 
6 3 
ele 


FEB eD te Qe Zt 9 23 THAI HANRAHAN YADA AAA AAA AYN AAA AN ANA NAA AN AANANA AN HaANNNHNGEG, 
sath ch mach aid ced coh coh coal ech amb adc ooh chek ab od ook ooh ccd deeb ach ach cb ab coh woh ch oe cb cc cok coc aah ch ech ae ea coh cael ch oe ab oh oh a ah ah ae a wh ae ek 8 ce a 
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END 
ccecceccceccccccece ecccccecceccecceeccecccccce cececcccccececccceccec cccccccce 
Ge ceecccceccceccce cece cece ccec CcCC CE CECE S CCEECCECEC EC EEE C ECEC OE COO eee 


CCCCC CONCHG 
Cecceccccccc ccecece ce cecece cc ceceécc ce ceccce cece ececceeccecececccececccccce 
EECCCCCECCOEE CECE OE CC ECCCEE CE CC CCE CCE CEC CCC Cc ce Ccccceccccccccccccccccccce 
SUBROUTINE CONCHG 
COMMON /PAR3/TMD, ACLIFT ,CLMAX,WL,TMAX ,CDO ,CDK,VMAX1, VMAX2 
COMMON /PARU/ AP PMAX HTMIN, HTMAX, SPDMIN, GMAX, POPMIN 
COMMON /TAR/T ARGX , TARGY 


LF (TPNCH .EQ. 1) RETURN T 
100 WRITE(6,640 v 
READ {9 ) ISAM 7 
arriey | ISAM LT. 1) «OR. (ISAM .GT. 7)) GOTO 100 : 

595 FORMAT(' ARE YOU FINISHED WITH THIS FLIGHTPATH: O=NO; 1=Y53S") T 
240 FORMAT (' OUTPUT FILE: 0=NO OUTPUT; 1=D001 FILE ONLY! T 
620 FORMAT(' >S=MICE FILE ONLY: 3=P001 & MICE PILES") T 
630 FORMAT (' EXTENDED OUTPOT; O=NOT WANTED; 1=EXTENDED OUTPUT') T 
640 FORMAT(! MISSILE TYPE BETWEEN 1 AND 7°) 7 
T 

T 


O 
OQ 
O 
O 
-3 


‘ 
: WRITE INSTROCTIONS 


30 


10 


11 


12 


13 


14 


WRITE (6, 100 
WRITE (6, 105 
WRITE (6,110 
WRITE(6, 115 
WRITE (6,120 
WRITE(6, 125 
WRITE (6, 130 
WRITE(6, 135 
ies ee K 
EP ( (Rk - ibs 9) OR, 4K. Ts, 171) 
g g g 8 fd g g g 
ARITE (8.805 
READ (5 ,“A)CLMAX 
GO TO 30 
WRITE (6,203 
READ (5 ,2A)WL 
GO To 30 
WRITE (6,204 
READ (5 ,%)SPDMIN 
GO TO 30 
WRITE (6 4203) 
READ (5 ,#)GMAX 
Go TO 30 
WRITE (6,208) 
READ (5 =“ )HTMIN 
GO TO 30 
WRITE (6,20) 
READ (5 ,%) HT MAX 
GO TO 30 
WRITE (6,208 
READ (5,2) POPMIN 
GO TO 30 
WRITE (6 4202) 
READ (5,#) APPMAX 
GO TO 30 
WRITE (6,210 
READ (5 ,@) TMAX 
GO TO 30 
WRITE (6 4211) 
READ (5 ,2)CDO 
GO TO 30 
WRITE (6,212 
READ (5 ,2=)CDK 
Go TO 30 
WRITE (6,213) 
READ (5,2) VMAX1 
GO TO 30 
WRITE (6,2 14) 
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TO 30 
Wee ae 15. 16,1 0s x 


3994 BAA AHAB BABB BABB BAA BARBARA BABAR BABAR AAANAANAAH 


SN ee 


2 
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ae ~ 


- 


r 


PRRIAANOAEBVEEEE2EE22 


: ) 





PELE: TT FORTRAN A NAVAL POSTGRADUATE SCHOOL 


AD (5 ,%) VMAX2 


532 


‘5 WRI ‘| 
6, IR TARGX,TARGY 


Otmls Om 


D 
TO 
6, 
D 
TO 


R 
16 RE 


NEW PARAMETER VALUES FROM THE DISK 

16 

16,300) CLMAX,WL, SPDMIN, GMAX, HTMIN, HT 
} 185399 POPMIN, APPMAX, THAX,CDO,CDK, VM 
16,300 VMAX2,TARGX , TARGY 
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QMDADIH - OAirHQs 
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MAX 
AX 
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c WRITE PARAMETER VALUES TO THE TERMI NAL 

& 


17 Mattes: £18, 5 
CLMAX, WL,SPDMIN,GMAX,HTMIN,HTMAX 


00 
55 
ge POPMIN, APPMAX,TMAX ,CDO ,CDK,VMAX1 
00) VMAX2, TARGX, TARGY 


=z 
es) 
H+ 
rH 
ty 


‘@ 
c SAVE PARAMETER VALUES ON DISK AND RETO RN TO CALLING ROUTINE 
& 


200 REWIND 16 
WRITE( 16,300) CLMAX, WL, SPDMIN,GMAX, HTM 
WRITE( 16,300) POPMIN, APPMAX, TMAX,CDO,C 
WR 16,300) VMAX2,TARGX, TARGY 
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: ARGET BEFORE POP-UP ALLOWED') 


ak 
T ALLOWED! 

y ZERO LIFT*) 
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ENTER MAX SPEED CARRYING A BOMB + 
ENTER MAX SPEED APTER BOMB IS RELEASED!') 
ENTER TARGET X AND Y COORDINATES") 

AX CL WING LD STALL SPD MAX G MINJHT. MAX.HT.') 
T(' POP-UP DIST APPR.HT. MAX THRUST CDO DRAG CONSTANT 
=MAX SPD WITH BOMB*) 

FORMAT (' MAX SPD W/O BOMB TARGET X COORD. TARGET Y COORD.') 

FORMAT 6F12. 4) 
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C SUBROUTINE ERRCHK C 
Be@emeeccecce cccccece cecccecccc ccccecccccecce cece cecceccecccececcece 
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COMMON 7 BARS/ TMD, KCLiet, CLMAX,WL,TMAX ,CDO, CDK 
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ARU/ APPMAX, HTMIN , HTMAX ¢SPDMIN, GHAX, POPHIN 
/~ 1. 

X=TARGX-X 

DY=TARGY- Y (MNUM 

DIST=SORT (DXB 2 + DY#*#2) 


c 
c INITIALIZE POPALT AND TMSAV 
IF { (HNUM. NE. 2) AND. (TMSAV.NE.-1.)) GO TO 15 


ALT=0. 
TMSAV=TMAX 
15 1 a ee sy NPs TMAX.NE.TMSAV) TMAX=TMSAV 
CALL a 
ce we Eee) 
30y ee a >SPHIN} OR. (Z(MNUM) «LT. APPMAX)) GOTO 30 


RETURN 
IF (DIST. GT.POPMIN .AND. Z(MNUM) . GT. POPALT) POPALT=Z (MNU™M) 


30 
35 IF ( Fe GE. HTMIN) GOTO 
ETD R 
40 IF a . LE. HTMAX) GOTO 45 
TERR = 
RETU RN 
45 IF (VEL (NUM) .GE. SPDMIN) GOTO 50 
TERR =5 
RETU RN 
50 IF (MNUM .EQ. 2) RETURN 
Ir (ACLIFT .LE. GMAX) GO TO 51 
TERR = 
J RETU RN 
: COMPUTE DRAG AND LIFT FORCES 
51 RHO -025 6# EXP -0, 1038 (2 (MNUM) /19 00. ) 
z MNUM) .G 0670.) 5 
.007 E35 (-0 . 156% (ZA ~ 10670.) /1900.) 
52 Ry HeL (uNUN) #82) 74 ) 
ira elesgh banc L 0 TO 
IERR=17 
RETURN 
53 Di= ( (CD0# CDR@CLRCL) /CL) *ACLIPT 
TW=TMD+DW 
TF (TH -LE. TMAX), -AND. TW .GE. 0.)) GOTO 55 
Ip (TW .GT. THAX) J 8 
DW= (RHO (VEL (MNO 42) 7#L) # (0.95 +CD0#CDK# (CL®%2)) /2. 
IF (TMD+DW .LE. 
IF (IERR .NE. 0) RETURN 
35 IF (MNUM .NE. MBR) RETURN 
c EVALUATE BOMBING RUN 
DT=T (MNU HK) T(HNUKS 1) 
TGTHDG=ATAN2 (DY, DX) #57. 29578 
oP eGTHDG SLT 0.) TGTHDG=TGTHD G+ 360. 
DX=X HNOM) - X (MNUM- 1 
DY=Y (MNUM) - Y(MNUM-1 
ACHDG=ATAN2 (D DX) *5 .29578 
IF ( ACHDG .LT. 0.) ACHDG=ACHDSG +360. 
HDGLMT=ABS (TGT HDG-ACHDG) 
IF (POPALT -GE.1000.) GOTO 58 
IERR=6 
RETU RN 
58 IF (Z(HNUM) .GE.100.) GOTO 60 
TERR =/ 7 
60 IF (2 (0 A) .LE. 2000.) GOTO 65 
LERR= 
RETURN 
65 IF (DIST .LE. 2000.) GOTO 75 
TERR =9 
RETU RN 


NSH 


9119 AEE A AAR BABAR AHA AAA RBA AAA AAAYAARAAyAAANNG HHHHMHAAHH 


eh ek ee kk ek nk eh ek ek ek ek wee ee eh ce ek ed ek aed oh wd od 


CDOOSGOSGOO 





eeces TT FORTRAN A NAVAL POSTGRADUATES SCHODL 


75 IF (HDIGLMT .LE. 5.) GOTO 80 
TERR =10 
RETURN 
80 169 (a “GE. 2. 33) GOTO 85 
85 TMAX=1. 2" TMAX 
RETURN 
END 
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APPENDIX D 


IBMPIP MODIFIED MODULES 


Mepee eee @CCCCceCCCCCCECCC COCCECCECCCCCCC CCCCCCCCCOCCCCCCCCCCIECC 
PPPnemeCPCeCeeCeceneGc@eeceCec CCCCCCCCCccccUccccccccceeccecceccceccccce 
C SUBROOTINE PTHPLT c 
MeernecoececcCeeccececcecceccecccceccecccc ccececccecceccececccccccce 
eccecceeccccecc ccceec CC ceceeceeccecece ce cee cee cece cccece ce ccecececece ce 


200 209 EBS (aby ot 200) , RA (200) , VEL(200) 
/Y 61 (200 (200) ,MNUM, MBR 
MAXY, INX, ax 


AN 
Oa 
=m 
< $es) 
OO 
— 
tZ 
H+ 
= 
tr 
td 
t3 
pa 61 
rd 
E= 
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Tin | a (oe fee 

ei Set NNN 
'ZiwAizt bpairoty 
C303 C3 C3 nt os 2 Oe 


Red PSP (FO 
meen 


IFY THE MAP, DRAW AND LABEL THE FLIGHT LEG 
MAXX, 18000., 12000., 0) 
1,7Y4 


tf 


x1 2 
. 99 


ID 


QAAN 
rete AO Nene Ps 


29) W=3 
Ns ee Nae LT 100) TwW= 2 
) I= 


oo ee eee La FCHARS) 
et pee, Ceeaie CHARS) 


tCiet Qe Ett 
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Ec 


Save THE PCINT IN ‘TEMP DATA‘ 


WRITE 625) X(MNUM) ,Y (MNUM) ,Z (MNUM) , VEL(MNUM) ,MBR 
625 FORMA (4810. eer mets YO. d ( ye 


AMAN 


END. 
me eee Cece CO CCCCECCE CC CCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCE 
eeeeeo ge CCC ECO CCE Ccececceceeececeecce sce 


. GUNLOC 
Mumm ee c CCC Ce CCCCCCCCCCCCCCCCCC CCCCCE CCCCCCCCCCCCCCCCCCCCCCC 
ummremme@rec mc eCCCCCCCCCCCCCCCCECCCC CCCCCE CCCC CCCCCCCCCCCCCCCCCCC 
SUBROUTINE GUNLOC (GX,GY eae 
CONMON/MN/IB AUD, M NY, MAY, M NX ,MAXX, MINT, MAX1 
REAL?4 X, Y,DX, DY 
X=GX 
Y=GY 


c 
- BoE ErY THE WAP AND PLACE A *+#+* AT THE LOCATION 


CALL WIN(MINX, MAXX, 18000., 12000., 0) 
CALL GBDRAW K+75. 

CALL GBMCVE e786. 
CALL GBDRAW x! 7-75. 
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o 
c De tenuaNnes NUMBER OF STEPS TO BE USED 
& 


ISTEP=3 
IF (RAD.LT. 1600.) ISTEP=6 


DRAW A CIRCLE AROUND THE SITE 
DO 10 I=2,180 ISTEP 
ANGLE= 634907 

DX=R 

DY= 

CA 

1 GALL G 

RETURN 


AAD 


Oo we 


END 
mum @CCOCCC CCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
ee As et aaa 


Seer 
c THES RETORNS AN X-¥ Ge AND TWO COMMAND VALUES LIEL2 C 
& ores eee CREATES HO on nee oly tx, Y AND ASKS FOR G 
o OPERATOR VERIFICATION AASCI INN "=7 8) C 
Ececceccececececcec CC CCECE CCE CECE CECE Ceeere CCCCCCECCCCCCECCECCCICCCE 


SUBROUTINE SPOT(X,Y,L1,L2) 
REAL"G TX,TY,DO 
P INTEGER*4 L,M, KEY 
C READ THE CURSOR 
100 CALL GBRXYC(4,L,KEY,TX,TY) 
IF(TX .LT.350.) DOT=9. 
MARK THE SEOT 
CALL GBGLOT(DOT,TX,T Y) 
X=TX 
Y=TY 
DOFS THE USER ACCEPT THE SPOT? 


CALL GBRXYC(M, L REY, TX TY) 
IF (M .£O. 0) GoTo’ 108 


CONVERT THE COMMAND TO THE PROPER FORMAT 
ms 
aA 
| 
it 


110 L2=L 
aoe 

ieee eecee Ce CCCc Cc CC CCCE CC CC CCCC EC CCCECc cece ccecccecccecceecece 

RR ec cee, (CCCCe ceecec cececceccececececcce-ck 


& THIS ROUTINE DRAWS THE ATTACK MAP 
SEE ra 


AAD AAD 


AAN 


oe 


a 
} 


e6¢ 8 O—_ 


Z 
3 
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Siro: 
ty tte 
Ordo BF 
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tit gry 


OEROUTINE SCENE 
COMMON /ERR/M KE RX x (3) ) GORERY (18) | 
COMMON/MN/1IBAUD,MINY MINX, MA Ke MINIT, MAX1 
MMON /PAR/X (200) ,¥ (590) 2 (20 Of aD G (200) ,CA(200), RA (200), VEL (200) 
COMMON 7TAR/T ARGK, FAB 
REAL’ GxX,GY 
LOGICAL® 1 CHARS (20) 


c 
C Penolk THE SCREEN 
160 


EP EB EB BBA AAA ARAYA BAH AAAAA AAA ANBAR AAA AAA AHANAHAAAHH 
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CALL GSERSE 
GALL DSEERA 


Cc 
C READ USER CPTIONS 
Cc 
WRITE (6 g 635), 
READ (8 MAP 
ak , Q. 33) GoTo 195 
RI B {6,63 
READ ( yt 
C DRAW THE X aa 
C THE nonerae. READS X,Y PAIRS FROM PILE 09. A -2.0, 
© END OP FILE,-0.5,0 INDICATES A MOVE,ALL OTHER VAL 
C SITIVE AND RESULT IN A DRAW TO THAT POINT. 
G  RE-INITIALIZE THE SCREEN 
195 CALL DSINIT 
CALL WIN(MINX, MAXX 18900.,12000.,1 ) 
IF (MAP £0. 5) Goto 2 
REWIND 9 
READ (9 6301 GX ,GY 
200 READ (9,501) GX,GY 
ALL GEMOVE(GX,GY) 
201 READ (9,501) ren ene 
Tt (SX- LT.~ 3) GOTO 210 
Ir (GX.LT. 0§ GOTO 200 
CALI GBDRAW (GX, GY) 
GOTO 201 


S 
a MARK THE TARGET 


210 CALL GUNLOC(TARGX,TARGY, 150. 
CALL GUNLOC({ TARGX STARG Y, 300. 


. 
oS DRAW TIC MARKS EVERY 2000 MTRS 
DO eS I=1,8 
=2" J 


CALL GBMO VE (I 2000.,1000.) 
CALL GBDRAW T# 2000. 0) 
CALL GAXITC 2, CHARS) 
CALL GBCHAR oy 5006! ee 0 2,GH ARS) 
IF (I .GE. G00 Poe 
ALL GBMO 2 000.,1%2000.) 
CALL GBDR W {0 2060.97) 
Cine ghyite 1.1% -2,CHARS) 
CALL GBCHAR (-60. 182000. 42. ,0- » 2,CHARS) 
215 CONTINUE 
T1I=MINY 
I2=MAXY 
MAXY=MINY-15 
MINY=MINY-200 
CALL WEN (WINK# 275 gM AXX-1754 1956195 40) 
CALL GBCHAR( 105,110. ¢225,04,19;'XEY MARKS IN 1000"S') 
CALL GBCHAR( 10. 40s ¢ 2e 5700729, ZERO DEGREES ALONG 
CALL GSPRCE 
MAXY=12 
MINY=11 


gS 
2 DRAW THE ALTIMETER 


CALL WIN(MIN1, MAX 1, 350., 2200., 1) 
DO 220 T=2,20,2 
CALL GBMOVE (0 pT 190; 
CALL GBDRAW I* 10 
CALL CAXITC - sot 3 CHARS 
220 CALL GBCHAR (0~ gL® 100.4 20, O« » 2, CHARS) 
DO 225 I=1,6 
CALL GBAOVE (I750.,100.) 
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225 CALL GBDRAW(I2#50.,0.) 
c 
C MARK RESET POINT VELOCITY AND ALTITUDE AS OPERATOR AID 
Cc 
IP IRQ. NE-0 ~AND. ICT .GT.1)CALL GBGDOT(9.,VEL (ICT) ,Z(ICT)) 


MINY=MINY-200 

CALL WIN (MIN 1-250 ,MAX1+650,195.¢1 85. ,0 

CALL GBCHAR(10.,110.,2,0,0.,19,'ALT MARKS IN 1000"S') 

CALL GBCHAR(10.,60.,2-0,0.,29, ‘VELOCITY IN 50"S ALONG X AXIS‘) 

CALL GSFRCE 

MAXY=T2 

MINY=T 1 
5Q1 FORMAT (2510. 2) 
630 FORMAT(' AT WHICH POINT DO YOU WANT TO RESTART") 
635 FORMAT(' VILLAGE: O=NOT DRAWN; 1=VILLAGE DRAWN' 
650 FORMAT(' X,Y,Z,AND VELOCITY! ,4F9. 1) 

RETORN 
Mumea@ag@eeeeccccee cocccccccccccceccce ccccec ccoccecccecceccccccceence 
Met eiee CCCc CCCCCCCCCCCCCCCCCCCCCEEC CCceCcec cccecccccc cc ceécceécccécc 
E SUBROUTINE WIN C 
© THIS ROUTINE DEFINES A WINDOW EXTENDING FROM LX TO MX ON C 
E THE HORIZONTAL AXIS, AND FROM MINY TO MAXY ON THE VERTICAL C 
c AXIS. THE HORIZONTAL RANGE IS RX, THE VERTICAL RANGE IS RY C 
Mame eeeGccc CCCCECCCCCCCCCCCCCCCCCCCCCCCE cCccCcCccceccccccccccicc 


SUBROUTINE WIN (LX,4X, RX RY / IMP) 
CORNON/HN/TB AUD, /MINY,MA 

REALSS 

INTEGER™4 V1 (4) 

DATA WIN1(1) /0<./,WIN1(2) /0./ 


DEFINE THE WINDOW 


AAN 
PO tl 


Qt teu tt 


Ent) ant aed ed HD 
ere 
et tee Te 


odes th tl 


ee he 
«<j 
Bra 
ar 


enh F sf ti «| 
ot at tp —{ Ft 2 


CALL GASWI iG 
IF (JMP "BO. wri GoTo 11 


FLASH THE LEFINED WINDOW 
ICT=4 +502 IBAUD 
Vee 
WIN J WIN (4 
I41 (3 a 
HINT (3) (WIN (2 
1(1) ,4 N1 (2) ) 


DO 10 I=1 

END 
uur COC CCCCCC CC CCCCCCCC CEC CCCCCC CCCCEC CCCCCCCCCCCCCCCCCCCCCCC 
Sumpeeeereeecec CCC CCC CCCCCCCECCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCSCC 
c SUBROUTINE BEGIN C 
Muppet ee CCC CCCCE CC CCCCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
Bepereore CC CLCCCCCC CCCCECCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCC 

SUBROUTINE BEGIN 

COMMON/MN/IBAUD,MINY,MAXY,MINX, MAXX, SINT, MAX1 

CCMMON/OFT/IGUN, IPNCH, LEXT, ISAM, IMP, KER 


C 
: READ USER CPTIONS 
50 Le B44) ti 


AAN 


) IGUN 
WRITE 6 30) 
Seren , Sek 
RFAD ia Jf) KE 
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WRITE §6 62) 
READ 7) I BAUD 
WRITE (6, 6 0) 
sae e~ ) KO} 
IF { of NE. 0) CALL CONCHG 
600 FORMAT(' GUNS: 0=DISK FILE; 1=TERMINAL ;2=PRESET ') 
625 FORMAT(' BAUD RATE: 0=300 BAUD; 1=1200 BAUD!) 
630 PORMAT(' MILESTONE INPUT: O=DISK FILE; 1=TER INAL") 
235 FORMAT(' ERROR CHECKING: O=NO CHECKING; 1=CHECK FOR PRRORS') 
640 FORMAT (" FLIGHT & GAME PARAMETERS: O=DEFAULT; 1=USFR INPUT") 
© INITIALIZE THE GRAPHICS AND CLEAR SCREEN 
MAXX=3200 
MINX=500 
MAX1I=MAXX+225 
MINI=MAXX*#30 
MAXY=2500 
r MINY=700 
C COMPUTE THE SCREEN WINDOW COORDINATES 
@ 
CALL DSINIT 
CALL GSERSE 
RETURN 


EN 
ccecccececce Cece ce ce ccecce cece cece ce cece cece cceccecccececcccc eC CCC CE 


ECceccc CeCCC CC CEC CECCECCCCCCC EE CCE CCECES COLE CECE E CECE EE ECERE EERE EE 


eeECCC LF 
ceceecceccece cccecec ceccecececc cc cccccc ccccce ccececcececccecccece cc CCC EE 
CECE EE CECEEE CEC EEE CE CCC CCECECECCCCCC CCcccc Cccccceccc ccccecceccec cee cc 
SUBROUTINE ELFIN (LAST) 
CCMMON /OET/IGUN, TPNCH, IEXT,ISAM,IMP, KER 
COMMON/MN/ IBAUD,MINY, MAXY,MINX,MAXX ,MIN1, MAX1 


5 
¢ CLOSE GRAPHICS ROUTINES 
: CALL DSTERM 
c OLD (LAST=0) OR NEW (LAST=1) PLIGHT PATH? 
: IF(LAST .EQ. 0) GOTO 20 
: REQUEST USER OUTPUT OPTIONS 
15 WRITE (64595) 
READ (5 *) LAST 
IF (Las More OesOR. LAST.LT.0) GO TO 15 
LAST=H1 + 82"®LAST 
20 £WRITE(6,610 
WRITE (6 , 620 
. READ (5,“) IPNCH 
C IF MILESTONES CAME FROM DISK, RETURN END OF FILE MARKER 
IF (LAST .EO.- 0), LAST=83 
IF (IPNCH -£Q- ) RETURN 
TEC LENCH EO. ) GOTO 100 
WRITE (6,5 3 Y 
READ (S,2) LEXT 
zr (TPNCH EQ. 1) RETURN 
100 WRITE(6, 640 
RFAD (5,2) ISAM 
TE (isai “LT. 1) .OR. (ISAM .GT. 7)) GOTO 100 
590 FORMAT('+HIT ANY KEY FOR OUTPUT OPTION SELECTION’) 
295 FORMAT(' ARE YOU FINISHED WITH THIS FLIGHTPATH: O=NO, I=YES") 
600 FORMAT (' SCREEN OUTPUT: O=NO OUTPUT; 1=OUTPUT DESTRED*) 
610 FORMAT(® OUTPUT FILE: O=NO OUTPUT; 1=P001 FILE ONLY') 
620 FORMAT (' >=MICE FILE ONLY; 3=2001 & MICE FILES") 
23006 FORMAT?! EXTENDED OUTPUT; O=NOT WANTED; 1=EXTENDED OUTPUT") 
640 FORMAT(* MISSILE TYPE BETWEEN 1 AND 7°) 
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END 

Maman me Ceeeeececee GeeeccoccceccCccCcc Cccccc cccccccccccccccecccccecccccccce 
CCECC ECC CECE CCE EE CE CCCCEE Ce CECE CE Ce CCCCCS Ccee Eee ee Ce eCeCCeCeeCCCCECCCE 
ESccc 
Meee se eeeerere cece cee ecc CCCCCCCecce CcCccc Cece Ccccccccccececccccececccccc 
MuMmnineG@udem eeeGeecccCCCCCCCCCECECCCCCCCC CCCC CCCCCCCCCCCCCCCCCCCCCCCCCC 

SUBROUTINE ATMET (Z) 

COMMON/TAR/TARGX | T RGY 

COM MON/PAR/X (200) 4¥ (2 00) 

REAL" 4 TX, TY, 1X1, TY 


r| 
AR 
AR 
GS 


MOVE TO CURRENT MILESTONE COORDINATES 
CALL GBMCVE(TX,TY) 
DRAW DASHEL LINE TO TARGET 


CALL pe Pee aemee ts 1) 
CALI. GSLT (0) 
RETURN 


ANA AAN 


END 
ummm cee CCCCl Ce CC CCEC CECE CCECCCCCCCCCC CCCC CCCCCCCCCCCCCCCCC 


CCCECESEE 
ree ere GO Gece Ce eeeee CECCE CECE CE CCEECC CCCC CCCCCCCCCCCCCCCCCCCCCCCCCC 
eeccc CONCHG CECEE 
meme: CCCC CC CE CC CCOCECECCCCCCCCECCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
erm CC COCE CE CCECCCECccCccecccccceccc cccc ccccccCceccecceccceccccceccccc 


SUBROUTINE CONCHG 
COMMON /PAR3/TMD,ACLIFT,CLMAX,WL,TMAX ,CDO,CDK, eek le WEA X2 
COMMON /PARG/ APPMAX, HUM IN, ,HTMAX, SPDMIN, GMAX, POPMIN 


HPI HAAR HANA AAA AADAAABNAYAAA AA AAA AANA HAAR ANAAAAAAYANANA BAR ABANAAAAAAHAAYNHHHHNND 
NMNNNNNNNMUNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 


: COMMON /TAR/TARGX , TARGY 
: WRITE INSTRUCTIONS 
30 WRITE(6,100 
WRITE (6, 105 
WRITE (6,110 
WRITE (6,115 
WRITE (6 , 120 
WRITE (6,125 
WRITE(6, 130 
WRITE (6,135 
ELD eK 
IF eceeee 0) .OR. (K .GT. 17)) GO TO 30 
GO (200 Pune 6 6) 940211, 12, 13 14,15, 16,17). « 
2 WRITE (6,202) _ 
REAL (5,%) CLMAX 
GO TO 30 
3 WRITE (6 203) 
READ (5,7) WL 
GO TO 30 
4 WRITE (6 294) 
REAL (5,3) SPDMIN 
GO TO 30 
5 WRITE (6,205) 
REAL (5,') GMAX 
GO TO 30 
6 WRITE (6 2.06), 
REAL (5, *) HTMIN 
GO T0 30 
7 WRITE (6 207) 
READ (5,2) HTMAX 
GO TO 30 
g WRITE (6 208) 
REAL (5,%) FOPMIN 
GO TO 30 
9 WRITE (6,209) 
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MAX SPD WITH BOMB") 


260 FORMAT ( MAX SPD W/O BOMB TARGET X COORD. TARGET ¥ COORD.') 
300 FORMAT 6 F12. 4) 
ecccecececeeccecec ce ccececee cc cecccce cecccc coc ccccccecccccccccccc 
CE CECE CE CCEE CE CECE CC CCCCE CCE CCECEE CC CCC CCC CCCCCcecccccccccccccc cc 
C SUBROUTINE FRRMK C 
EC CCC CCCCCCCCCCCCCCCCCCCCCCCCC CCC ECC CCCCCE CECE CCCCCCCCCCCCCCCCCCC 
CECE EE CECECEE EC EC OE CCCCCCEE CECE ECCECE CCE CCC CCCCCCCCcccCCCCccccccscc 
SUBROUTINE ERRMK (IERR) 
COMMON/MN/ LBAUD,MINY, MAXY, MINX,MAXX ,MIN1,MAX1 
COMMON /P AR/X (200) E (260) 424200), HDS (400) - CA (200) RA (200) , VEL (200) 
COMMON /PAR 1/XDOT (200) , YDOT (200) ,ZDOT (200) , MNUM,MBR 
COMMON /EER/MKERX (3) , MKERY (15) 
IF (IERR .GT. 20) GOTO 85 


Cc 
: FLASH THE FROMPT WINDOW 
CALL WIN (MKERX (1) , MKERX (2) ,2700.,185., 1) 
CALL GSFRCE 
Somes .6774-9, 10, 11, 12, 13, 19,15, 16, 17, 18, 19,20) , LERR 
WRITE(6, 604) 
GOTO 75 
WRITE(6, 602) 
Goto 75 
WRITE(6, 603) 
GoTo 75 
WRITE(6, 604) 
GOTO 75 
WRITE(6, 605) 
GOTO 7 
WRITE(6, 606) 
Goto 475 
WRITE(6, 607) 
WRITE(6, 608) 
GoTo 75 
WRITE(6, 609) 
GOTO 75 
WRITE(6, 610) 
""G0T0 75 
WRITE(6, 611) 
GOTd 75 
TRITE (6,612) 
WRITE(6, 613) 
GOTO 
WRITE(6, 614) 
GoTo 85 
WRITE(6, 615) 
WRITE(6, 616) 
GOTO 
WRITE(6, 617) 
WRITE(6, 618) 
GOTO 
WRITE(6,619) 
Goto 85 
WRITE(6, 020) 
WRITE (6,650) X(MNUM) ,Y(MNUM) ,Z(MNUM) ,VEL(MNUM) 
MAXIMUM BRAKING EXCEEDED") 
MAX G EXCEEDED") 
ALT TOO LOW") 
ALT TOO HIGH") 
STALL") 
POP-UP TOO LOW") 
BMB DROP LOW") 


BMB DROP HI! 
TOO FAR FM TGT') 
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610 FORMAT(' HDG>S DEG TO TGT') 

611 FORMAT(' FINAL RUN<2.33 SEC! 

612 FORMAT(' NO HORIZONTAL MOTION® ) 

613 FORMAT(' TOO CLOSE TO Coney 

614 FORMAT(' ENTER MISSILE LOCATION’) 

615 FORMAT(' ENTER MILESTONE a 

616 FORMAT(' ENTER GUN LOCATIONS") 

617 FORMAT(' MAX LIFT EXCEEDED' 

618 FORMAT(' MAX THRUST EXCEEDED‘) 

619 FORMAT(* X COORDINATE LESS THAN 6000 °) 
620 PORMAT(' DO YOU WANT TO FIX THE ERROR:0=NO,USE THE POLNTe VS vee 7) 
650 ee te X ee) VELOCITY, 4F9. 1) 
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